ETO Development Tools 1

home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.89.06.sit / SC.018.StdFile / StdFile.p < prev next >
MacBinary | 1989-04-01 | 65.9 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sat Apr 1 15:02:34 1989, modified Sat Apr 1 15:02:34 1989, creator 'MPS ', type ASCII, 66857 bytes "StdFile.p" , at 0x105a9 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 53 74 64 46 69 6c | 65 2e 70 00 00 00 00 00 |..StdFil|e.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 01 05 29 00 | 00 01 7e a0 5a db 5a a0 |......).|..~.Z.Z.|
|00000060| 5a db 5a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Z.Z.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 32 56 00 00 |........|....2V..|
|00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000000d0| 23 0d 23 09 09 41 70 70 | 6c 65 20 4d 61 63 69 6e |#.#..App|le Macin|
|000000e0| 74 6f 73 68 20 44 65 76 | 65 6c 6f 70 65 72 20 54 |tosh Dev|eloper T|
|000000f0| 65 63 68 6e 69 63 61 6c | 20 53 75 70 70 6f 72 74 |echnical| Support|
|00000100| 0d 23 0d 23 09 09 53 74 | 61 6e 64 61 72 64 20 46 |.#.#..St|andard F|
|00000110| 69 6c 65 20 53 61 6d 70 | 6c 65 20 41 70 70 6c 69 |ile Samp|le Appli|
|00000120| 63 61 74 69 6f 6e 0d 23 | 0d 23 09 09 53 74 64 46 |cation.#|.#..StdF|
|00000130| 69 6c 65 0d 23 0d 23 09 | 09 53 74 64 46 69 6c 65 |ile.#.#.|.StdFile|
|00000140| 2e 70 09 09 2d 09 09 50 | 61 73 63 61 6c 20 53 6f |.p..-..P|ascal So|
|00000150| 75 72 63 65 0d 23 0d 23 | 09 09 43 6f 70 79 72 69 |urce.#.#|..Copyri|
|00000160| 67 68 74 20 a9 20 31 39 | 38 39 20 41 70 70 6c 65 |ght . 19|89 Apple|
|00000170| 20 43 6f 6d 70 75 74 65 | 72 2c 20 49 6e 63 2e 0d | Compute|r, Inc..|
|00000180| 23 09 09 41 6c 6c 20 72 | 69 67 68 74 73 20 72 65 |#..All r|ights re|
|00000190| 73 65 72 76 65 64 2e 0d | 23 0d 23 09 56 65 72 73 |served..|#.#.Vers|
|000001a0| 69 6f 6e 73 3a 0d 23 09 | 09 09 09 09 09 09 09 09 |ions:.#.|........|
|000001b0| 31 2e 30 30 09 09 09 09 | 09 09 30 34 2f 38 39 0d |1.00....|..04/89.|
|000001c0| 23 0d 23 09 43 6f 6d 70 | 6f 6e 65 6e 74 73 3a 0d |#.#.Comp|onents:.|
|000001d0| 23 09 09 09 09 09 09 09 | 09 09 53 74 64 46 69 6c |#.......|..StdFil|
|000001e0| 65 2e 63 09 09 09 09 41 | 70 72 69 6c 20 31 2c 20 |e.c....A|pril 1, |
|000001f0| 31 39 38 39 0d 23 09 09 | 09 09 09 09 09 09 09 53 |1989.#..|.......S|
|00000200| 74 64 46 69 6c 65 2e 70 | 09 09 09 09 41 70 72 69 |tdFile.p|....Apri|
|00000210| 6c 20 31 2c 20 31 39 38 | 39 0d 23 09 09 09 09 09 |l 1, 198|9.#.....|
|00000220| 09 09 09 09 53 74 64 46 | 69 6c 65 2e 68 09 09 09 |....StdF|ile.h...|
|00000230| 09 41 70 72 69 6c 20 31 | 2c 20 31 39 38 38 0d 23 |.April 1|, 1988.#|
|00000240| 09 09 09 09 09 09 09 09 | 09 53 74 64 46 69 6c 65 |........|.StdFile|
|00000250| 2e 72 09 09 09 09 41 70 | 72 69 6c 20 31 2c 20 31 |.r....Ap|ril 1, 1|
|00000260| 39 38 38 0d 23 09 09 09 | 09 09 09 09 09 09 53 74 |988.#...|......St|
|00000270| 64 46 69 6c 65 2e 72 73 | 72 63 09 09 41 70 72 69 |dFile.rs|rc..Apri|
|00000280| 6c 20 31 2c 20 31 39 38 | 38 0d 23 09 09 09 09 09 |l 1, 198|8.#.....|
|00000290| 09 09 09 09 43 53 74 64 | 46 69 6c 65 2e 6d 61 6b |....CStd|File.mak|
|000002a0| 65 09 09 41 70 72 69 6c | 20 31 2c 20 31 39 38 39 |e..April| 1, 1989|
|000002b0| 0d 23 09 09 09 09 09 09 | 09 09 09 50 53 74 64 46 |.#......|...PStdF|
|000002c0| 69 6c 65 2e 6d 61 6b 65 | 09 09 41 70 72 69 6c 20 |ile.make|..April |
|000002d0| 31 2c 20 31 39 38 38 0d | 23 0d 4f 42 4a 45 43 54 |1, 1988.|#.OBJECT|
|000002e0| 49 56 45 53 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |IVES.---|-------.|
|000002f0| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 61 74 74 |This pro|gram att|
|00000300| 65 6d 70 74 73 20 74 6f | 20 64 65 6d 6f 6e 73 74 |empts to| demonst|
|00000310| 72 61 74 65 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |rate the| followi|
|00000320| 6e 67 20 74 65 63 68 6e | 69 71 75 65 73 3a 0d 0d |ng techn|iques:..|
|00000330| 09 09 2d 20 4e 6f 72 6d | 61 6c 20 75 73 65 20 6f |..- Norm|al use o|
|00000340| 66 20 53 46 47 65 74 46 | 69 6c 65 20 61 6e 64 20 |f SFGetF|ile and |
|00000350| 53 46 50 75 74 46 69 6c | 65 0d 09 09 2d 20 4e 6f |SFPutFil|e...- No|
|00000360| 72 6d 61 6c 20 75 73 65 | 20 6f 66 20 53 46 50 47 |rmal use| of SFPG|
|00000370| 65 74 46 69 6c 65 20 61 | 6e 64 20 53 46 50 50 75 |etFile a|nd SFPPu|
|00000380| 74 46 69 6c 65 2e 20 54 | 68 69 73 20 69 6e 63 6c |tFile. T|his incl|
|00000390| 75 64 65 73 20 75 73 65 | 20 6f 66 20 43 75 73 74 |udes use| of Cust|
|000003a0| 6f 6d 0d 09 09 09 44 69 | 61 6c 6f 67 73 20 77 69 |om....Di|alogs wi|
|000003b0| 74 68 20 68 61 6e 64 6c | 69 6e 67 20 6f 66 20 65 |th handl|ing of e|
|000003c0| 78 74 72 61 20 69 74 65 | 6d 73 20 74 68 72 6f 75 |xtra ite|ms throu|
|000003d0| 67 68 20 74 68 65 20 69 | 6d 70 6c 65 6d 65 6e 74 |gh the i|mplement|
|000003e0| 61 74 69 6f 6e 20 6f 66 | 20 61 0d 09 09 09 44 6c |ation of| a....Dl|
|000003f0| 67 48 6f 6f 6b 2e 0d 09 | 09 09 09 2d 20 46 69 72 |gHook...|...- Fir|
|00000400| 73 74 20 74 69 6d 65 20 | 69 6e 69 74 69 61 6c 69 |st time |initiali|
|00000410| 7a 61 74 69 6f 6e 0d 09 | 09 09 09 2d 20 45 78 74 |zation..|...- Ext|
|00000420| 72 61 20 53 69 6d 70 6c | 65 20 62 75 74 74 6f 6e |ra Simpl|e button|
|00000430| 73 20 28 51 75 69 74 2f | 44 69 72 65 63 74 6f 72 |s (Quit/|Director|
|00000440| 79 2f 54 68 69 73 44 69 | 72 29 0d 09 09 09 09 2d |y/ThisDi|r).....-|
|00000450| 20 52 61 64 69 6f 20 62 | 75 74 74 6f 6e 73 20 28 | Radio b|uttons (|
|00000460| 66 69 6c 65 20 66 6f 72 | 6d 61 74 2c 20 74 79 70 |file for|mat, typ|
|00000470| 65 73 20 6f 66 20 66 69 | 6c 65 73 20 74 6f 20 73 |es of fi|les to s|
|00000480| 68 6f 77 29 0d 09 09 09 | 09 2d 20 41 6c 69 61 73 |how)....|.- Alias|
|00000490| 69 6e 67 20 63 6c 69 63 | 6b 20 6f 6e 20 73 6f 6d |ing clic|k on som|
|000004a0| 65 20 62 75 74 74 6f 6e | 73 20 74 6f 20 63 6c 69 |e button|s to cli|
|000004b0| 63 6b 73 20 6f 6e 20 6f | 74 68 65 72 20 62 75 74 |cks on o|ther but|
|000004c0| 74 6f 6e 73 0d 09 09 09 | 09 2d 20 52 65 67 65 6e |tons....|.- Regen|
|000004d0| 65 72 61 74 69 6e 67 20 | 74 68 65 20 6c 69 73 74 |erating |the list|
|000004e0| 20 6f 66 20 66 69 6c 65 | 73 20 64 69 73 70 6c 61 | of file|s displa|
|000004f0| 79 65 64 0d 09 09 2d 20 | 43 72 65 61 74 69 6e 67 |yed...- |Creating|
|00000500| 20 61 20 66 75 6c 6c 20 | 70 61 74 68 6e 61 6d 65 | a full |pathname|
|00000510| 20 66 72 6f 6d 20 74 68 | 65 20 72 65 70 6c 79 20 | from th|e reply |
|00000520| 72 65 63 6f 72 64 20 28 | 75 73 69 6e 67 20 57 6f |record (|using Wo|
|00000530| 72 6b 69 6e 67 20 44 69 | 72 65 63 74 6f 72 69 65 |rking Di|rectorie|
|00000540| 73 0d 09 09 09 6f 72 20 | 44 69 72 49 44 29 0d 09 |s....or |DirID)..|
|00000550| 09 2d 20 53 65 6c 65 63 | 74 69 6e 67 20 61 20 64 |.- Selec|ting a d|
|00000560| 69 72 65 63 74 6f 72 79 | 20 28 61 6c 61 20 4d 50 |irectory| (ala MP|
|00000570| 57 27 73 20 22 47 65 74 | 46 69 6c 65 4e 61 6d 65 |W's "Get|FileName|
|00000580| 20 2d 64 22 29 0d 09 09 | 2d 20 53 69 6d 70 6c 65 | -d")...|- Simple|
|00000590| 20 66 69 6c 65 20 66 69 | 6c 74 65 72 20 28 63 68 | file fi|lter (ch|
|000005a0| 65 63 6b 73 20 66 69 6c | 65 20 74 79 70 65 29 0d |ecks fil|e type).|
|000005b0| 09 09 2d 20 43 6f 6d 70 | 6c 65 78 20 66 69 6c 65 |..- Comp|lex file|
|000005c0| 20 66 69 6c 74 65 72 20 | 28 6c 6f 6f 6b 69 6e 67 | filter |(looking|
|000005d0| 20 69 6e 73 69 64 65 20 | 74 68 65 20 66 69 6c 65 | inside |the file|
|000005e0| 29 0d 09 09 2d 20 41 64 | 64 69 6e 67 20 61 6e 64 |)...- Ad|ding and|
|000005f0| 20 64 65 6c 65 74 69 6e | 67 20 61 6e 64 20 65 78 | deletin|g and ex|
|00000600| 74 72 61 20 4c 69 73 74 | 20 4d 61 6e 61 67 65 72 |tra List| Manager|
|00000610| 20 6c 69 73 74 73 2e 20 | 54 68 69 73 20 69 73 20 | lists. |This is |
|00000620| 73 68 6f 77 6e 20 66 6f | 72 20 62 6f 74 68 0d 09 |shown fo|r both..|
|00000630| 09 09 53 46 47 65 74 46 | 69 6c 65 20 61 6e 64 20 |..SFGetF|ile and |
|00000640| 53 46 50 75 74 46 69 6c | 65 2e 0d 09 09 2d 20 53 |SFPutFil|e....- S|
|00000650| 65 6c 65 63 74 20 6d 75 | 6c 74 69 70 6c 65 20 66 |elect mu|ltiple f|
|00000660| 69 6c 65 73 20 75 73 69 | 6e 67 20 6f 6e 65 20 6f |iles usi|ng one o|
|00000670| 66 20 74 77 6f 20 6d 65 | 74 68 6f 64 73 0d 09 09 |f two me|thods...|
|00000680| 09 09 2d 20 52 65 70 6c | 61 63 65 20 53 46 27 73 |..- Repl|ace SF's|
|00000690| 20 6c 69 73 74 20 77 69 | 74 68 20 6f 6e 65 20 6f | list wi|th one o|
|000006a0| 66 20 79 6f 75 72 20 6f | 77 6e 0d 09 09 09 09 2d |f your o|wn.....-|
|000006b0| 20 41 64 64 20 61 20 73 | 65 63 6f 6e 64 20 6c 69 | Add a s|econd li|
|000006c0| 73 74 20 74 6f 20 74 68 | 65 20 44 69 61 6c 6f 67 |st to th|e Dialog|
|000006d0| 20 42 6f 78 2e 20 54 68 | 69 73 20 6d 65 74 68 6f | Box. Th|is metho|
|000006e0| 64 20 69 73 20 6e 6f 74 | 20 73 68 6f 77 6e 0d 09 |d is not| shown..|
|000006f0| 09 09 09 09 65 78 70 6c | 69 63 69 74 6c 79 2e 20 |....expl|icitly. |
|00000700| 52 61 74 68 65 72 2c 20 | 49 20 73 68 6f 77 20 68 |Rather, |I show h|
|00000710| 6f 77 20 74 6f 20 69 6e | 73 74 61 6c 6c 20 61 6e |ow to in|stall an|
|00000720| 64 20 64 69 73 70 6f 73 | 65 20 6f 66 20 74 68 65 |d dispos|e of the|
|00000730| 20 61 63 74 75 61 6c 0d | 09 09 09 09 09 6c 69 73 | actual.|.....lis|
|00000740| 74 20 69 74 65 6d 2e 20 | 49 6e 73 65 72 74 69 6e |t item. |Insertin|
|00000750| 67 20 66 69 6c 65 6e 61 | 6d 65 73 20 69 6e 74 6f |g filena|mes into|
|00000760| 20 74 68 65 20 6c 69 73 | 74 20 69 73 20 6c 65 66 | the lis|t is lef|
|00000770| 74 20 61 73 20 61 6e 20 | 65 78 65 72 63 69 73 65 |t as an |exercise|
|00000780| 0d 09 09 09 09 09 74 6f | 20 79 6f 75 2c 20 74 68 |......to| you, th|
|00000790| 65 20 50 72 6f 67 72 61 | 6d 6d 65 72 2e 0d 09 09 |e Progra|mmer....|
|000007a0| 2d 20 53 65 74 74 69 6e | 67 20 74 68 65 20 73 74 |- Settin|g the st|
|000007b0| 61 72 74 69 6e 67 20 44 | 69 72 65 63 74 6f 72 79 |arting D|irectory|
|000007c0| 2f 56 6f 6c 75 6d 65 0d | 09 09 2d 20 44 65 73 63 |/Volume.|..- Desc|
|000007d0| 72 69 62 65 20 70 65 6e | 64 69 6e 67 20 75 70 64 |ribe pen|ding upd|
|000007e0| 61 74 65 20 65 76 65 6e | 74 20 63 6c 6f 67 67 69 |ate even|t cloggi|
|000007f0| 6e 67 0d 0d 0d 4e 4f 54 | 45 53 0d 2d 2d 2d 2d 2d |ng...NOT|ES.-----|
|00000800| 0d 09 09 2d 20 54 68 69 | 73 20 61 70 70 6c 69 63 |...- Thi|s applic|
|00000810| 61 74 69 6f 6e 20 61 73 | 73 75 6d 65 73 20 65 78 |ation as|sumes ex|
|00000820| 69 73 74 61 6e 63 65 20 | 6f 66 20 48 46 53 2e 20 |istance |of HFS. |
|00000830| 49 74 20 6d 61 6b 65 73 | 20 48 46 53 20 63 61 6c |It makes| HFS cal|
|00000840| 6c 73 20 61 6e 64 0d 09 | 09 09 61 63 63 65 73 73 |ls and..|..access|
|00000850| 65 73 20 48 46 53 20 64 | 61 74 61 20 73 74 72 75 |es HFS d|ata stru|
|00000860| 63 74 75 72 65 73 20 77 | 69 74 68 6f 75 74 20 66 |ctures w|ithout f|
|00000870| 69 72 73 74 20 63 68 65 | 63 6b 69 6e 67 20 74 6f |irst che|cking to|
|00000880| 20 73 65 65 20 69 66 20 | 48 46 53 0d 09 09 09 65 | see if |HFS....e|
|00000890| 78 69 73 74 73 20 6f 6e | 20 74 68 69 73 20 6d 61 |xists on| this ma|
|000008a0| 63 68 69 6e 65 2e 0d 09 | 09 2d 20 49 6e 20 73 6f |chine...|.- In so|
|000008b0| 6d 65 20 63 61 73 65 73 | 2c 20 79 6f 75 20 77 69 |me cases|, you wi|
|000008c0| 6c 6c 20 73 65 65 20 6d | 65 20 6d 61 6b 65 20 75 |ll see m|e make u|
|000008d0| 73 65 20 6f 66 20 61 20 | 70 65 63 75 6c 69 61 72 |se of a |peculiar|
|000008e0| 20 50 61 73 63 61 6c 20 | 73 79 6e 74 61 78 3a 0d | Pascal |syntax:.|
|000008f0| 09 09 09 22 49 46 20 3c | 65 78 70 72 3e 20 54 48 |..."IF <|expr> TH|
|00000900| 45 4e 3b 22 2e 20 54 68 | 69 73 20 69 73 20 69 6e |EN;". Th|is is in|
|00000910| 74 65 6e 74 69 6f 6e 61 | 6c 2e 20 49 74 20 67 65 |tentiona|l. It ge|
|00000920| 74 73 20 74 68 65 20 50 | 61 73 63 61 6c 20 63 6f |ts the P|ascal co|
|00000930| 6d 70 69 6c 65 72 20 74 | 6f 0d 09 09 09 64 69 73 |mpiler t|o....dis|
|00000940| 63 61 72 64 20 66 75 6e | 63 74 69 6f 6e 20 72 65 |card fun|ction re|
|00000950| 73 75 6c 74 73 20 74 68 | 61 74 20 49 27 6d 20 6e |sults th|at I'm n|
|00000960| 6f 74 20 69 6e 74 65 72 | 65 73 74 65 64 20 69 6e |ot inter|ested in|
|00000970| 2e 0d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...-----|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 7d 0d 7b 24 52 2d 7d | 20 7b 74 75 72 6e 20 6f |-}.{$R-}| {turn o|
|000009d0| 66 66 20 72 61 6e 67 65 | 20 63 68 65 63 6b 69 6e |ff range| checkin|
|000009e0| 67 20 2d 20 77 65 20 6d | 61 64 65 20 73 75 72 65 |g - we m|ade sure|
|000009f0| 20 74 68 65 20 73 74 6f | 76 65 20 77 61 73 20 6f | the sto|ve was o|
|00000a00| 66 66 20 77 68 65 6e 20 | 77 65 20 6c 65 66 74 21 |ff when |we left!|
|00000a10| 7d 0d 0d 50 52 4f 47 52 | 41 4d 20 53 46 53 61 6d |}..PROGR|AM SFSam|
|00000a20| 70 6c 65 3b 0d 0d 09 55 | 53 45 53 20 54 79 70 65 |ple;...U|SES Type|
|00000a30| 73 2c 51 75 69 63 6b 44 | 72 61 77 2c 54 6f 6f 6c |s,QuickD|raw,Tool|
|00000a40| 55 74 69 6c 73 2c 45 76 | 65 6e 74 73 2c 43 6f 6e |Utils,Ev|ents,Con|
|00000a50| 74 72 6f 6c 73 2c 57 69 | 6e 64 6f 77 73 2c 44 69 |trols,Wi|ndows,Di|
|00000a60| 61 6c 6f 67 73 2c 4d 65 | 6e 75 73 2c 44 65 73 6b |alogs,Me|nus,Desk|
|00000a70| 2c 0d 09 09 09 20 53 65 | 67 4c 6f 61 64 2c 46 69 |,.... Se|gLoad,Fi|
|00000a80| 6c 65 73 2c 4f 53 45 76 | 65 6e 74 73 2c 54 72 61 |les,OSEv|ents,Tra|
|00000a90| 70 73 2c 46 6f 6e 74 73 | 2c 4f 53 55 74 69 6c 73 |ps,Fonts|,OSUtils|
|00000aa0| 2c 52 65 73 6f 75 72 63 | 65 73 2c 4d 65 6d 6f 72 |,Resourc|es,Memor|
|00000ab0| 79 2c 50 61 63 6b 61 67 | 65 73 2c 0d 09 09 09 20 |y,Packag|es,.... |
|00000ac0| 4c 69 73 74 73 3b 0d 0d | 09 43 4f 4e 53 54 0d 09 |Lists;..|.CONST..|
|00000ad0| 09 7b 20 4c 6f 77 20 6d | 65 6d 6f 72 79 20 6e 61 |.{ Low m|emory na|
|00000ae0| 73 74 69 65 73 20 7d 0d | 09 09 6b 53 46 53 61 76 |sties }.|..kSFSav|
|00000af0| 65 44 69 73 6b 09 09 09 | 09 09 3d 20 24 32 31 34 |eDisk...|..= $214|
|00000b00| 3b 09 09 7b 20 4e 65 67 | 61 74 69 76 65 20 6f 66 |;..{ Neg|ative of|
|00000b10| 20 63 75 72 72 65 6e 74 | 20 76 6f 6c 75 6d 65 20 | current| volume |
|00000b20| 72 65 66 6e 75 6d 20 5b | 57 4f 52 44 5d 09 7d 0d |refnum [|WORD].}.|
|00000b30| 09 09 6b 43 75 72 44 69 | 72 53 74 6f 72 65 09 09 |..kCurDi|rStore..|
|00000b40| 09 09 3d 20 24 33 39 38 | 3b 09 09 7b 20 44 69 72 |..= $398|;..{ Dir|
|00000b50| 49 44 20 6f 66 20 63 75 | 72 72 65 6e 74 20 64 69 |ID of cu|rrent di|
|00000b60| 72 65 63 74 6f 72 79 20 | 5b 4c 4f 4e 47 5d 09 09 |rectory |[LONG]..|
|00000b70| 09 09 09 7d 0d 09 09 6b | 52 65 73 4c 6f 61 64 09 |...}...k|ResLoad.|
|00000b80| 09 09 09 09 09 3d 20 24 | 41 35 45 3b 09 09 7b 20 |.....= $|A5E;..{ |
|00000b90| 42 6f 6f 6c 65 61 6e 20 | 52 65 73 4c 6f 61 64 20 |Boolean |ResLoad |
|00000ba0| 73 65 74 74 69 6e 67 20 | 5b 57 4f 52 44 5d 09 09 |setting |[WORD]..|
|00000bb0| 09 09 09 09 7d 0d 09 09 | 6b 54 6f 70 4d 61 70 48 |....}...|kTopMapH|
|00000bc0| 6e 64 6c 09 09 09 09 09 | 3d 20 24 41 35 30 3b 09 |ndl.....|= $A50;.|
|00000bd0| 09 7b 20 31 73 74 20 6d | 61 70 20 69 6e 20 72 65 |.{ 1st m|ap in re|
|00000be0| 73 6f 75 72 63 65 20 6c | 69 73 74 20 5b 48 61 6e |source l|ist [Han|
|00000bf0| 64 6c 65 5d 09 09 09 09 | 09 7d 0d 09 09 6b 48 57 |dle]....|.}...kHW|
|00000c00| 43 66 67 46 6c 61 67 73 | 09 09 09 09 09 3d 20 24 |CfgFlags|.....= $|
|00000c10| 42 32 32 3b 09 09 7b 20 | 55 73 65 64 20 74 6f 20 |B22;..{ |Used to |
|00000c20| 73 65 65 20 69 66 20 41 | 2f 55 58 20 69 73 20 72 |see if A|/UX is r|
|00000c30| 75 6e 6e 69 6e 67 09 09 | 09 09 09 09 7d 0d 0d 09 |unning..|....}...|
|00000c40| 09 7b 20 52 65 73 6f 75 | 72 63 65 20 49 44 27 73 |.{ Resou|rce ID's|
|00000c50| 20 66 6f 72 20 73 6f 6d | 65 20 64 69 61 6c 6f 67 | for som|e dialog|
|00000c60| 20 62 6f 78 65 73 20 7d | 0d 09 09 72 41 62 6f 75 | boxes }|...rAbou|
|00000c70| 74 4d 65 44 4c 4f 47 09 | 09 09 09 3d 20 31 32 38 |tMeDLOG.|...= 128|
|00000c80| 3b 0d 09 09 72 52 65 61 | 6c 41 62 6f 75 74 4d 65 |;...rRea|lAboutMe|
|00000c90| 44 4c 4f 47 09 09 3d 20 | 31 32 39 3b 0d 09 09 72 |DLOG..= |129;...r|
|00000ca0| 53 68 6f 77 53 65 6c 65 | 63 74 69 6f 6e 44 4c 4f |ShowSele|ctionDLO|
|00000cb0| 47 09 3d 20 31 33 30 3b | 0d 0d 09 09 7b 20 52 65 |G.= 130;|....{ Re|
|00000cc0| 73 6f 75 72 63 65 20 49 | 44 27 73 20 66 6f 72 20 |source I|D's for |
|00000cd0| 53 74 61 6e 64 61 72 64 | 20 46 69 6c 65 20 44 69 |Standard| File Di|
|00000ce0| 61 6c 6f 67 73 20 7d 0d | 09 09 72 53 46 50 47 65 |alogs }.|..rSFPGe|
|00000cf0| 74 46 69 6c 65 44 4c 4f | 47 09 09 09 3d 20 31 30 |tFileDLO|G...= 10|
|00000d00| 30 30 3b 0d 09 09 72 53 | 46 50 50 75 74 46 69 6c |00;...rS|FPPutFil|
|00000d10| 65 44 4c 4f 47 09 09 09 | 3d 20 31 30 30 31 3b 0d |eDLOG...|= 1001;.|
|00000d20| 09 09 72 47 65 74 44 69 | 72 65 63 74 6f 72 79 44 |..rGetDi|rectoryD|
|00000d30| 4c 4f 47 09 09 3d 20 31 | 30 30 32 3b 0d 09 09 72 |LOG..= 1|002;...r|
|00000d40| 4d 75 6c 74 69 46 69 6c | 65 44 4c 4f 47 09 09 09 |MultiFil|eDLOG...|
|00000d50| 3d 20 31 30 30 33 3b 0d | 09 09 72 4c 69 73 74 73 |= 1003;.|..rLists|
|00000d60| 4e 50 75 74 46 69 6c 65 | 44 4c 4f 47 09 3d 20 31 |NPutFile|DLOG.= 1|
|00000d70| 30 30 34 3b 0d 09 09 72 | 4f 70 74 69 6f 6e 73 44 |004;...r|OptionsD|
|00000d80| 4c 4f 47 09 09 09 09 3d | 20 31 30 30 35 3b 0d 09 |LOG....=| 1005;..|
|00000d90| 09 72 4f 70 74 69 6f 6e | 73 53 75 62 44 4c 4f 47 |.rOption|sSubDLOG|
|00000da0| 09 09 09 3d 20 32 30 30 | 30 3b 0d 0d 09 09 7b 20 |...= 200|0;....{ |
|00000db0| 53 54 52 23 20 72 65 73 | 6f 75 72 63 65 73 20 7d |STR# res|ources }|
|00000dc0| 0d 09 09 72 53 74 72 4d | 69 73 63 09 09 3d 20 32 |...rStrM|isc..= 2|
|00000dd0| 35 36 3b 09 09 09 09 09 | 09 7b 20 4d 69 73 63 65 |56;.....|.{ Misce|
|00000de0| 6c 6c 61 6e 65 6f 75 73 | 20 73 74 72 69 6e 67 73 |llaneous| strings|
|00000df0| 20 7d 0d 09 09 72 53 74 | 72 4c 69 73 74 09 09 3d | }...rSt|rList..=|
|00000e00| 20 32 35 37 3b 09 09 09 | 09 09 09 7b 20 55 73 65 | 257;...|...{ Use|
|00000e10| 64 20 74 6f 20 63 72 65 | 61 74 65 20 61 20 4c 69 |d to cre|ate a Li|
|00000e20| 73 74 20 4d 61 6e 61 67 | 65 72 20 6c 69 73 74 20 |st Manag|er list |
|00000e30| 7d 0d 0d 09 09 7b 20 6d | 65 6e 75 62 61 72 20 72 |}....{ m|enubar r|
|00000e40| 65 73 6f 75 72 63 65 20 | 6e 75 6d 62 65 72 20 7d |esource |number }|
|00000e50| 0d 09 09 72 4d 65 6e 75 | 42 61 72 09 09 3d 20 31 |...rMenu|Bar..= 1|
|00000e60| 32 38 3b 0d 0d 09 09 7b | 20 69 6e 64 65 78 65 73 |28;....{| indexes|
|00000e70| 20 66 6f 72 20 41 70 70 | 6c 65 20 6d 65 6e 75 20 | for App|le menu |
|00000e80| 69 74 65 6d 73 20 7d 0d | 09 09 6d 41 70 70 6c 65 |items }.|..mApple|
|00000e90| 09 09 09 3d 20 31 32 38 | 3b 0d 09 09 69 41 62 6f |...= 128|;...iAbo|
|00000ea0| 75 74 4d 65 20 09 09 3d | 20 31 3b 0d 0d 09 09 7b |utMe ..=| 1;....{|
|00000eb0| 20 69 6e 64 65 78 65 73 | 20 66 6f 72 20 46 69 6c | indexes| for Fil|
|00000ec0| 65 20 6d 65 6e 75 20 69 | 74 65 6d 73 20 7d 0d 09 |e menu i|tems }..|
|00000ed0| 09 6d 46 69 6c 65 09 09 | 09 09 3d 20 31 32 39 3b |.mFile..|..= 129;|
|00000ee0| 0d 09 09 69 51 75 69 74 | 20 20 09 09 09 3d 20 31 |...iQuit|  ...= 1|
|00000ef0| 3b 0d 0d 09 09 7b 20 69 | 6e 64 65 78 65 73 20 66 |;....{ i|ndexes f|
|00000f00| 6f 72 20 45 64 69 74 20 | 6d 65 6e 75 20 69 74 65 |or Edit |menu ite|
|00000f10| 6d 73 20 7d 0d 09 09 6d | 45 64 69 74 09 09 09 09 |ms }...m|Edit....|
|00000f20| 3d 20 31 33 30 3b 0d 09 | 09 69 55 6e 64 6f 20 20 |= 130;..|.iUndo  |
|00000f30| 09 09 09 3d 20 31 3b 0d | 09 09 69 43 75 74 09 20 |...= 1;.|..iCut. |
|00000f40| 09 09 09 3d 20 33 3b 0d | 09 09 69 43 6f 70 79 20 |...= 3;.|..iCopy |
|00000f50| 20 09 09 09 3d 20 34 3b | 0d 09 09 69 50 61 73 74 | ...= 4;|...iPast|
|00000f60| 65 20 09 09 09 3d 20 35 | 3b 0d 09 09 69 43 6c 65 |e ...= 5|;...iCle|
|00000f70| 61 72 20 09 09 09 3d 20 | 36 3b 0d 0d 09 09 7b 20 |ar ...= |6;....{ |
|00000f80| 69 6e 64 65 78 65 73 20 | 66 6f 72 20 53 74 61 6e |indexes |for Stan|
|00000f90| 64 61 72 64 20 46 69 6c | 65 20 6d 65 6e 75 20 69 |dard Fil|e menu i|
|00000fa0| 74 65 6d 73 20 7d 0d 09 | 09 6d 53 46 69 6c 65 09 |tems }..|.mSFile.|
|00000fb0| 09 09 09 09 3d 20 31 33 | 31 3b 0d 09 09 69 4e 6f |....= 13|1;...iNo|
|00000fc0| 72 6d 61 6c 47 65 74 09 | 09 09 3d 20 31 3b 0d 09 |rmalGet.|..= 1;..|
|00000fd0| 09 69 4e 6f 72 6d 61 6c | 50 75 74 09 09 09 3d 20 |.iNormal|Put...= |
|00000fe0| 69 4e 6f 72 6d 61 6c 47 | 65 74 20 2b 20 31 3b 0d |iNormalG|et + 1;.|
|00000ff0| 09 09 69 4e 6f 72 6d 61 | 6c 50 47 65 74 09 09 09 |..iNorma|lPGet...|
|00001000| 3d 20 69 4e 6f 72 6d 61 | 6c 50 75 74 20 2b 20 31 |= iNorma|lPut + 1|
|00001010| 3b 0d 09 09 69 4e 6f 72 | 6d 61 6c 50 50 75 74 09 |;...iNor|malPPut.|
|00001020| 09 09 3d 20 69 4e 6f 72 | 6d 61 6c 50 47 65 74 20 |..= iNor|malPGet |
|00001030| 2b 20 31 3b 0d 09 09 69 | 46 69 6c 65 46 69 6c 74 |+ 1;...i|FileFilt|
|00001040| 65 72 09 09 09 3d 20 69 | 4e 6f 72 6d 61 6c 50 50 |er...= i|NormalPP|
|00001050| 75 74 20 2b 20 31 3b 0d | 09 09 69 47 65 74 44 69 |ut + 1;.|..iGetDi|
|00001060| 72 65 63 74 6f 72 79 09 | 09 3d 20 69 46 69 6c 65 |rectory.|.= iFile|
|00001070| 46 69 6c 74 65 72 20 2b | 20 31 3b 0d 09 09 69 4d |Filter +| 1;...iM|
|00001080| 75 6c 74 69 46 69 6c 65 | 09 09 09 3d 20 69 47 65 |ultiFile|...= iGe|
|00001090| 74 44 69 72 65 63 74 6f | 72 79 20 2b 20 31 3b 0d |tDirecto|ry + 1;.|
|000010a0| 09 09 69 4c 69 73 74 73 | 4e 50 75 74 46 69 6c 65 |..iLists|NPutFile|
|000010b0| 09 3d 20 69 4d 75 6c 74 | 69 46 69 6c 65 20 2b 20 |.= iMult|iFile + |
|000010c0| 31 3b 0d 09 09 69 50 75 | 74 4f 70 74 69 6f 6e 73 |1;...iPu|tOptions|
|000010d0| 09 09 09 3d 20 69 4c 69 | 73 74 73 4e 50 75 74 46 |...= iLi|stsNPutF|
|000010e0| 69 6c 65 20 2b 20 31 3b | 0d 09 09 69 49 64 6c 65 |ile + 1;|...iIdle|
|000010f0| 55 70 64 61 74 65 73 09 | 09 3d 20 69 50 75 74 4f |Updates.|.= iPutO|
|00001100| 70 74 69 6f 6e 73 20 2b | 20 31 3b 0d 09 09 69 46 |ptions +| 1;...iF|
|00001110| 6f 72 63 65 44 69 72 65 | 63 74 6f 72 79 20 3d 20 |orceDire|ctory = |
|00001120| 69 49 64 6c 65 55 70 64 | 61 74 65 73 2b 31 3b 0d |iIdleUpd|ates+1;.|
|00001130| 0d 09 09 66 69 72 73 74 | 54 69 6d 65 09 09 09 09 |...first|Time....|
|00001140| 3d 20 2d 31 3b 20 20 7b | 74 68 65 20 66 69 72 73 |= -1;  {|the firs|
|00001150| 74 20 74 69 6d 65 20 6f | 75 72 20 68 6f 6f 6b 20 |t time o|ur hook |
|00001160| 69 73 20 63 61 6c 6c 65 | 64 2c 20 69 74 20 69 73 |is calle|d, it is|
|00001170| 20 70 61 73 73 65 64 20 | 61 20 2d 31 7d 0d 0d 09 | passed |a -1}...|
|00001180| 09 72 65 44 72 61 77 4c | 69 73 74 09 09 09 3d 20 |.reDrawL|ist...= |
|00001190| 31 30 31 3b 20 7b 72 65 | 74 75 72 6e 69 6e 67 20 |101; {re|turning |
|000011a0| 31 30 31 20 61 73 20 69 | 74 65 6d 20 6e 75 6d 62 |101 as i|tem numb|
|000011b0| 65 72 20 77 69 6c 6c 20 | 63 61 75 73 65 20 74 68 |er will |cause th|
|000011c0| 65 20 46 49 4c 45 20 6c | 69 73 74 0d 09 09 09 09 |e FILE l|ist.....|
|000011d0| 09 09 09 09 09 09 09 09 | 09 09 09 74 6f 20 62 65 |........|...to be|
|000011e0| 20 72 65 63 61 6c 63 75 | 6c 61 74 65 64 7d 0d 0d | recalcu|lated}..|
|000011f0| 09 09 42 54 4e 4f 4e 09 | 09 09 09 09 09 3d 20 31 |..BTNON.|.....= 1|
|00001200| 3b 20 20 20 7b 43 6f 6e | 74 72 6f 6c 20 76 61 6c |;   {Con|trol val|
|00001210| 75 65 20 66 6f 72 20 6f | 6e 7d 0d 09 09 42 54 4e |ue for o|n}...BTN|
|00001220| 4f 46 46 09 09 09 09 09 | 3d 20 30 3b 20 20 20 7b |OFF.....|= 0;   {|
|00001230| 43 6f 6e 74 72 6f 6c 20 | 76 61 6c 75 65 20 66 6f |Control |value fo|
|00001240| 72 20 6f 66 66 7d 0d 0d | 0d 09 54 59 50 45 0d 09 |r off}..|..TYPE..|
|00001250| 09 50 74 72 54 6f 4c 6f | 6e 67 09 09 09 09 3d 20 |.PtrToLo|ng....= |
|00001260| 5e 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 50 74 72 54 |^longint|;...PtrT|
|00001270| 6f 57 6f 72 64 09 09 09 | 09 3d 20 5e 69 6e 74 65 |oWord...|.= ^inte|
|00001280| 67 65 72 3b 0d 0d 09 09 | 53 74 72 69 6e 67 48 6f |ger;....|StringHo|
|00001290| 6c 64 65 72 48 64 6c 09 | 3d 20 5e 53 74 72 69 6e |lderHdl.|= ^Strin|
|000012a0| 67 48 6f 6c 64 65 72 50 | 74 72 3b 0d 09 09 53 74 |gHolderP|tr;...St|
|000012b0| 72 69 6e 67 48 6f 6c 64 | 65 72 50 74 72 09 3d 20 |ringHold|erPtr.= |
|000012c0| 5e 53 74 72 69 6e 67 48 | 6f 6c 64 65 72 3b 0d 09 |^StringH|older;..|
|000012d0| 09 53 74 72 69 6e 67 48 | 6f 6c 64 65 72 09 09 3d |.StringH|older..=|
|000012e0| 20 52 45 43 4f 52 44 0d | 09 09 09 09 09 09 09 09 | RECORD.|........|
|000012f0| 09 09 09 09 6c 69 6e 6b | 3a 20 53 74 72 69 6e 67 |....link|: String|
|00001300| 48 6f 6c 64 65 72 48 64 | 6c 3b 0d 09 09 09 09 09 |HolderHd|l;......|
|00001310| 09 09 09 09 09 09 09 74 | 69 74 6c 65 3a 20 73 74 |.......t|itle: st|
|00001320| 72 32 35 35 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |r255;...|........|
|00001330| 09 45 4e 44 3b 0d 0d 09 | 09 54 77 6f 49 6e 74 73 |.END;...|.TwoInts|
|00001340| 4d 61 6b 65 73 41 4c 6f | 6e 67 09 3d 20 52 45 43 |MakesALo|ng.= REC|
|00001350| 4f 52 44 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |ORD.....|........|
|00001360| 09 43 41 53 45 20 49 6e | 74 65 67 65 72 20 4f 46 |.CASE In|teger OF|
|00001370| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 31 |........|.......1|
|00001380| 3a 20 28 6c 6f 6e 67 3a | 20 4c 6f 6e 67 49 6e 74 |: (long:| LongInt|
|00001390| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |);......|........|
|000013a0| 09 32 3a 20 28 69 6e 74 | 73 3a 20 41 52 52 41 59 |.2: (int|s: ARRAY|
|000013b0| 20 5b 30 2e 2e 31 5d 20 | 4f 46 20 49 6e 74 65 67 | [0..1] |OF Integ|
|000013c0| 65 72 29 3b 0d 09 09 09 | 09 09 09 09 09 09 09 09 |er);....|........|
|000013d0| 09 45 4e 44 3b 20 7b 54 | 77 6f 49 6e 74 73 4d 61 |.END; {T|woIntsMa|
|000013e0| 6b 65 73 41 4c 6f 6e 67 | 7d 0d 0d 0d 09 56 41 52 |kesALong|}....VAR|
|000013f0| 0d 09 09 64 6f 6e 65 46 | 6c 61 67 09 09 09 09 09 |...doneF|lag.....|
|00001400| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 09 09 09 09 09 09 |: BOOLEA|N;......|
|00001410| 7b 20 73 65 74 20 74 6f | 20 54 52 55 45 20 77 68 |{ set to| TRUE wh|
|00001420| 65 6e 20 74 69 6d 65 20 | 74 6f 20 71 75 69 74 20 |en time |to quit |
|00001430| 7d 0d 09 09 6d 79 45 76 | 65 6e 74 20 09 09 09 09 |}...myEv|ent ....|
|00001440| 09 3a 20 45 76 65 6e 74 | 52 65 63 6f 72 64 3b 0d |.: Event|Record;.|
|00001450| 09 09 64 65 73 6b 50 61 | 72 74 09 09 09 09 09 3a |..deskPa|rt.....:|
|00001460| 20 69 6e 74 65 67 65 72 | 3b 09 09 09 09 09 09 7b | integer|;......{|
|00001470| 20 72 65 73 75 6c 74 20 | 66 72 6f 6d 20 46 69 6e | result |from Fin|
|00001480| 64 57 69 6e 64 6f 77 20 | 7d 0d 09 09 77 68 69 63 |dWindow |}...whic|
|00001490| 68 57 69 6e 64 6f 77 09 | 09 09 09 3a 20 57 69 6e |hWindow.|...: Win|
|000014a0| 64 6f 77 50 74 72 3b 09 | 09 09 09 09 7b 20 75 73 |dowPtr;.|....{ us|
|000014b0| 65 64 20 66 6f 72 20 46 | 69 6e 64 57 69 6e 64 6f |ed for F|indWindo|
|000014c0| 77 20 7d 0d 09 09 64 75 | 6d 6d 79 20 09 09 09 09 |w }...du|mmy ....|
|000014d0| 09 09 3a 20 49 6e 74 65 | 67 65 72 3b 0d 09 09 66 |..: Inte|ger;...f|
|000014e0| 6c 61 67 50 74 72 09 09 | 09 09 09 09 3a 20 50 74 |lagPtr..|....: Pt|
|000014f0| 72 54 6f 57 6f 72 64 3b | 0d 09 09 68 61 76 65 41 |rToWord;|...haveA|
|00001500| 55 58 09 09 09 09 09 09 | 3a 20 42 6f 6f 6c 65 61 |UX......|: Boolea|
|00001510| 6e 3b 09 09 09 09 09 09 | 7b 20 53 65 74 20 74 6f |n;......|{ Set to|
|00001520| 20 54 52 55 45 20 69 66 | 20 41 2f 55 58 20 69 73 | TRUE if| A/UX is|
|00001530| 20 72 75 6e 6e 69 6e 67 | 20 7d 0d 09 09 74 68 65 | running| }...the|
|00001540| 57 6f 72 6c 64 09 09 09 | 09 09 3a 20 53 79 73 45 |World...|..: SysE|
|00001550| 6e 76 52 65 63 3b 0d 09 | 09 57 4e 45 49 73 49 6d |nvRec;..|.WNEIsIm|
|00001560| 70 6c 65 6d 65 6e 74 65 | 64 09 3a 20 42 4f 4f 4c |plemente|d.: BOOL|
|00001570| 45 41 4e 3b 0d 09 09 68 | 61 76 65 45 76 65 6e 74 |EAN;...h|aveEvent|
|00001580| 09 09 09 09 09 3a 20 42 | 4f 4f 4c 45 41 4e 3b 09 |.....: B|OOLEAN;.|
|00001590| 09 09 09 09 09 7b 20 54 | 52 55 45 20 69 66 20 69 |.....{ T|RUE if i|
|000015a0| 6e 74 65 72 65 73 74 69 | 6e 67 20 65 76 65 6e 74 |nteresti|ng event|
|000015b0| 20 7d 0d 09 09 72 65 70 | 6c 79 09 09 09 09 09 09 | }...rep|ly......|
|000015c0| 09 3a 20 53 46 52 65 70 | 6c 79 3b 09 09 09 09 09 |.: SFRep|ly;.....|
|000015d0| 09 7b 20 75 73 65 64 20 | 69 6e 20 61 6c 6c 20 53 |.{ used |in all S|
|000015e0| 46 20 73 61 6d 70 6c 65 | 73 20 7d 0d 09 09 74 79 |F sample|s }...ty|
|000015f0| 70 65 4c 69 73 74 09 09 | 09 09 09 3a 20 53 46 54 |peList..|...: SFT|
|00001600| 79 70 65 4c 69 73 74 3b | 09 09 09 09 09 7b 20 74 |ypeList;|.....{ t|
|00001610| 79 70 65 6c 69 73 74 20 | 66 6f 72 20 61 6c 6c 20 |ypelist |for all |
|00001620| 53 46 20 73 61 6d 70 6c | 65 73 20 7d 0d 09 09 53 |SF sampl|es }...S|
|00001630| 46 53 61 76 65 44 69 73 | 6b 09 09 09 09 3a 20 50 |FSaveDis|k....: P|
|00001640| 74 72 54 6f 57 6f 72 64 | 3b 09 09 09 09 09 7b 20 |trToWord|;.....{ |
|00001650| 70 6f 69 6e 74 65 72 20 | 74 6f 20 53 46 53 61 76 |pointer |to SFSav|
|00001660| 65 44 69 73 6b 20 76 61 | 6c 75 65 20 7d 0d 09 09 |eDisk va|lue }...|
|00001670| 43 75 72 44 69 72 53 74 | 6f 72 65 09 09 09 09 3a |CurDirSt|ore....:|
|00001680| 20 50 74 72 54 6f 4c 6f | 6e 67 3b 09 09 09 09 09 | PtrToLo|ng;.....|
|00001690| 7b 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 43 75 72 |{ pointe|r to Cur|
|000016a0| 44 69 72 53 74 6f 72 65 | 20 76 61 6c 75 65 20 7d |DirStore| value }|
|000016b0| 0d 09 09 54 6f 70 4d 61 | 70 48 6e 64 6c 09 09 09 |...TopMa|pHndl...|
|000016c0| 09 3a 20 50 74 72 54 6f | 4c 6f 6e 67 3b 09 09 09 |.: PtrTo|Long;...|
|000016d0| 09 09 7b 20 70 6f 69 6e | 74 65 72 20 74 6f 20 54 |..{ poin|ter to T|
|000016e0| 6f 70 4d 61 70 48 6e 64 | 6c 20 68 61 6e 64 6c 65 |opMapHnd|l handle|
|000016f0| 20 7d 0d 09 09 65 72 72 | 09 09 09 09 09 09 09 09 | }...err|........|
|00001700| 3a 20 4f 53 45 72 72 3b | 09 09 09 09 09 09 09 7b |: OSErr;|.......{|
|00001710| 20 75 73 65 64 20 69 6e | 20 61 6c 6c 20 4f 53 20 | used in| all OS |
|00001720| 63 61 6c 6c 73 20 7d 0d | 0d 09 09 74 65 78 74 4f |calls }.|...textO|
|00001730| 6e 6c 79 09 09 09 09 09 | 3a 20 42 6f 6f 6c 65 61 |nly.....|: Boolea|
|00001740| 6e 3b 09 09 09 09 09 09 | 7b 20 66 6f 72 20 6e 6f |n;......|{ for no|
|00001750| 72 6d 61 6c 20 53 46 50 | 50 75 74 46 69 6c 65 20 |rmal SFP|PutFile |
|00001760| 73 61 6d 70 6c 65 20 7d | 0d 09 09 4d 79 53 61 76 |sample }|...MySav|
|00001770| 65 44 69 73 6b 09 09 09 | 09 3a 20 69 6e 74 65 67 |eDisk...|.: integ|
|00001780| 65 72 3b 09 09 09 09 09 | 09 7b 20 66 6f 72 20 6e |er;.....|.{ for n|
|00001790| 6f 72 6d 61 6c 20 53 46 | 50 50 75 74 46 69 6c 65 |ormal SF|PPutFile|
|000017a0| 20 73 61 6d 70 6c 65 20 | 7d 0d 09 09 66 72 65 65 | sample |}...free|
|000017b0| 49 74 65 6d 42 6f 78 09 | 09 09 09 3a 20 52 65 63 |ItemBox.|...: Rec|
|000017c0| 74 3b 09 09 09 09 09 09 | 09 09 7b 20 66 6f 72 20 |t;......|..{ for |
|000017d0| 6e 6f 72 6d 61 6c 20 53 | 46 50 50 75 74 46 69 6c |normal S|FPPutFil|
|000017e0| 65 20 73 61 6d 70 6c 65 | 20 7d 0d 09 09 4d 79 53 |e sample| }...MyS|
|000017f0| 74 72 2c 20 4d 79 53 74 | 72 32 09 09 09 3a 20 73 |tr, MySt|r2...: s|
|00001800| 74 72 32 35 35 3b 09 09 | 09 09 09 09 09 7b 20 66 |tr255;..|.....{ f|
|00001810| 6f 72 20 6e 6f 72 6d 61 | 6c 20 53 46 50 50 75 74 |or norma|l SFPPut|
|00001820| 46 69 6c 65 20 73 61 6d | 70 6c 65 20 7d 0d 0d 09 |File sam|ple }...|
|00001830| 09 4d 79 43 75 72 44 69 | 72 09 09 09 09 09 3a 20 |.MyCurDi|r.....: |
|00001840| 4c 6f 6e 67 69 6e 74 3b | 09 09 09 09 09 09 7b 20 |Longint;|......{ |
|00001850| 66 6f 72 20 53 65 74 44 | 69 72 65 63 74 6f 72 79 |for SetD|irectory|
|00001860| 20 73 61 6d 70 6c 65 20 | 7d 0d 09 09 43 75 72 44 | sample |}...CurD|
|00001870| 69 72 56 61 6c 69 64 09 | 09 09 09 3a 20 62 6f 6f |irValid.|...: boo|
|00001880| 6c 65 61 6e 3b 09 09 09 | 09 09 09 7b 20 66 6f 72 |lean;...|...{ for|
|00001890| 20 53 65 74 44 69 72 65 | 63 74 6f 72 79 20 73 61 | SetDire|ctory sa|
|000018a0| 6d 70 6c 65 20 7d 0d 0d | 09 09 4c 48 61 6e 64 6c |mple }..|..LHandl|
|000018b0| 65 09 09 09 09 09 09 3a | 20 4c 69 73 74 48 61 6e |e......:| ListHan|
|000018c0| 64 6c 65 3b 09 09 09 09 | 09 7b 20 66 6f 72 20 4d |dle;....|.{ for M|
|000018d0| 75 6c 74 69 46 69 6c 65 | 20 61 6e 64 20 4c 69 73 |ultiFile| and Lis|
|000018e0| 74 73 4e 50 75 74 20 73 | 61 6d 70 6c 65 73 20 7d |tsNPut s|amples }|
|000018f0| 0d 0d 09 09 4f 70 74 69 | 6f 6e 4e 75 6d 62 65 72 |....Opti|onNumber|
|00001900| 09 09 09 3a 20 69 6e 74 | 65 67 65 72 3b 09 09 09 |...: int|eger;...|
|00001910| 09 09 09 7b 20 66 6f 72 | 20 50 75 74 4f 70 74 69 |...{ for| PutOpti|
|00001920| 6f 6e 73 20 73 61 6d 70 | 6c 65 20 7d 0d 09 09 4f |ons samp|le }...O|
|00001930| 70 74 69 6f 6e 73 44 50 | 74 72 09 09 09 09 3a 20 |ptionsDP|tr....: |
|00001940| 44 69 61 6c 6f 67 50 74 | 72 3b 09 09 09 09 09 7b |DialogPt|r;.....{|
|00001950| 20 66 6f 72 20 50 75 74 | 4f 70 74 69 6f 6e 73 20 | for Put|Options |
|00001960| 73 61 6d 70 6c 65 20 7d | 0d 0d 09 09 66 69 72 73 |sample }|....firs|
|00001970| 74 4e 61 6d 65 09 09 09 | 09 09 3a 20 53 74 72 69 |tName...|..: Stri|
|00001980| 6e 67 48 6f 6c 64 65 72 | 48 64 6c 3b 09 09 7b 20 |ngHolder|Hdl;..{ |
|00001990| 66 6f 72 20 4d 75 6c 74 | 69 46 69 6c 65 20 7d 0d |for Mult|iFile }.|
|000019a0| 09 09 6e 61 6d 65 73 43 | 68 61 6e 67 65 64 09 09 |..namesC|hanged..|
|000019b0| 09 3a 20 62 6f 6f 6c 65 | 61 6e 3b 09 09 09 09 09 |.: boole|an;.....|
|000019c0| 09 7b 20 66 6f 72 20 4d | 75 6c 74 69 46 69 6c 65 |.{ for M|ultiFile|
|000019d0| 20 7d 0d 09 09 6e 65 65 | 64 54 6f 55 70 64 61 74 | }...nee|dToUpdat|
|000019e0| 65 09 09 09 3a 20 62 6f | 6f 6c 65 61 6e 3b 09 09 |e...: bo|olean;..|
|000019f0| 09 09 09 09 7b 20 66 6f | 72 20 4d 75 6c 74 69 46 |....{ fo|r MultiF|
|00001a00| 69 6c 65 20 7d 0d 0d 0d | 09 50 52 4f 43 45 44 55 |ile }...|.PROCEDU|
|00001a10| 52 45 20 5f 44 61 74 61 | 49 6e 69 74 3b 0d 09 09 |RE _Data|Init;...|
|00001a20| 45 58 54 45 52 4e 41 4c | 3b 0d 0d 28 2a 2a 20 53 |EXTERNAL|;..(** S|
|00001a30| 65 74 55 70 4d 65 6e 75 | 73 20 2a 2a 2a 2a 2a 2a |etUpMenu|s ******|
|00001a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 29 0d 28 2a 0d 28 |********|**).(*.(|
|00001a80| 2a 09 52 65 61 64 20 69 | 6e 20 74 68 65 20 6d 65 |*.Read i|n the me|
|00001a90| 6e 75 20 72 65 73 6f 75 | 72 63 65 73 20 61 6e 64 |nu resou|rces and|
|00001aa0| 20 63 72 65 61 74 65 20 | 61 20 6d 65 6e 75 20 62 | create |a menu b|
|00001ab0| 61 72 20 6f 75 74 20 6f | 66 20 74 68 65 6d 2e 20 |ar out o|f them. |
|00001ac0| 44 72 61 77 20 74 68 65 | 0d 28 2a 09 6d 65 6e 75 |Draw the|.(*.menu|
|00001ad0| 20 62 61 72 2e 0d 28 2a | 0d 28 2a 2a 2a 2a 2a 2a | bar..(*|.(******|
|00001ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b20| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0d 0d 09 50 52 4f 43 |********|)...PROC|
|00001b30| 45 44 55 52 45 20 53 65 | 74 55 70 4d 65 6e 75 73 |EDURE Se|tUpMenus|
|00001b40| 3b 0d 0d 09 09 56 41 52 | 0d 09 09 09 6d 65 6e 75 |;....VAR|....menu|
|00001b50| 42 61 72 3a 20 48 61 6e | 64 6c 65 3b 0d 0d 09 09 |Bar: Han|dle;....|
|00001b60| 42 45 47 49 4e 0d 09 09 | 09 6d 65 6e 75 42 61 72 |BEGIN...|.menuBar|
|00001b70| 20 3a 3d 20 47 65 74 4e | 65 77 4d 42 61 72 28 72 | := GetN|ewMBar(r|
|00001b80| 4d 65 6e 75 42 61 72 29 | 3b 09 09 09 09 7b 72 65 |MenuBar)|;....{re|
|00001b90| 61 64 20 6d 65 6e 75 73 | 20 69 6e 74 6f 20 6d 65 |ad menus| into me|
|00001ba0| 6e 75 20 62 61 72 7d 0d | 09 09 09 49 46 20 28 6d |nu bar}.|...IF (m|
|00001bb0| 65 6e 75 42 61 72 20 3d | 20 4e 49 4c 29 20 54 48 |enuBar =| NIL) TH|
|00001bc0| 45 4e 20 45 78 69 74 54 | 6f 53 68 65 6c 6c 3b 0d |EN ExitT|oShell;.|
|00001bd0| 09 09 09 53 65 74 4d 65 | 6e 75 42 61 72 28 6d 65 |...SetMe|nuBar(me|
|00001be0| 6e 75 42 61 72 29 3b 09 | 09 09 09 09 09 09 09 09 |nuBar);.|........|
|00001bf0| 09 7b 69 6e 73 74 61 6c | 6c 20 6d 65 6e 75 73 7d |.{instal|l menus}|
|00001c00| 0d 09 09 09 44 69 73 70 | 6f 73 48 61 6e 64 6c 65 |....Disp|osHandle|
|00001c10| 28 6d 65 6e 75 42 61 72 | 29 3b 0d 09 09 09 41 64 |(menuBar|);....Ad|
|00001c20| 64 52 65 73 4d 65 6e 75 | 28 47 65 74 4d 48 61 6e |dResMenu|(GetMHan|
|00001c30| 64 6c 65 28 6d 41 70 70 | 6c 65 29 2c 20 27 44 52 |dle(mApp|le), 'DR|
|00001c40| 56 52 27 29 3b 09 7b 61 | 64 64 20 44 41 20 6e 61 |VR');.{a|dd DA na|
|00001c50| 6d 65 73 20 74 6f 20 41 | 70 70 6c 65 20 6d 65 6e |mes to A|pple men|
|00001c60| 75 7d 0d 09 09 09 44 72 | 61 77 4d 65 6e 75 42 61 |u}....Dr|awMenuBa|
|00001c70| 72 3b 0d 09 09 45 4e 44 | 3b 0d 0d 0d 28 2a 2a 20 |r;...END|;...(** |
|00001c80| 53 65 74 52 61 64 69 6f | 42 75 74 74 6f 6e 20 2a |SetRadio|Button *|
|00001c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d 28 2a 0d |********|***).(*.|
|00001cd0| 28 2a 09 48 61 6e 64 79 | 20 72 6f 75 74 69 6e 65 |(*.Handy| routine|
|00001ce0| 20 66 6f 72 20 73 65 74 | 74 69 6e 67 20 74 68 65 | for set|ting the|
|00001cf0| 20 76 61 6c 75 65 20 6f | 66 20 61 20 72 61 64 69 | value o|f a radi|
|00001d00| 6f 20 62 75 74 74 6f 6e | 2e 20 47 69 76 65 6e 20 |o button|. Given |
|00001d10| 61 20 64 69 61 6c 6f 67 | 0d 28 2a 09 70 6f 69 6e |a dialog|.(*.poin|
|00001d20| 74 65 72 2c 20 61 6e 64 | 20 69 74 65 6d 20 6e 75 |ter, and| item nu|
|00001d30| 6d 62 65 72 2c 20 61 6e | 64 20 61 20 73 74 61 74 |mber, an|d a stat|
|00001d40| 65 2c 20 74 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |e, this |routine |
|00001d50| 77 69 6c 6c 20 74 61 6b | 65 20 63 61 72 65 20 6f |will tak|e care o|
|00001d60| 66 0d 28 2a 09 74 68 65 | 20 72 65 73 74 2e 0d 28 |f.(*.the| rest..(|
|00001d70| 2a 0d 28 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.(*****|********|
|00001d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001dc0| 2a 29 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 53 |*)...PRO|CEDURE S|
|00001dd0| 65 74 52 61 64 69 6f 42 | 75 74 74 6f 6e 28 64 69 |etRadioB|utton(di|
|00001de0| 61 6c 6f 67 3a 44 69 61 | 6c 6f 67 50 74 72 3b 20 |alog:Dia|logPtr; |
|00001df0| 69 74 65 6d 3a 69 6e 74 | 65 67 65 72 3b 20 73 74 |item:int|eger; st|
|00001e00| 61 74 65 3a 69 6e 74 65 | 67 65 72 29 3b 0d 0d 09 |ate:inte|ger);...|
|00001e10| 09 56 41 52 0d 09 09 09 | 6b 69 6e 64 3a 20 69 6e |.VAR....|kind: in|
|00001e20| 74 65 67 65 72 3b 0d 09 | 09 09 68 3a 20 68 61 6e |teger;..|..h: han|
|00001e30| 64 6c 65 3b 0d 09 09 09 | 72 3a 20 72 65 63 74 3b |dle;....|r: rect;|
|00001e40| 0d 0d 09 09 42 45 47 49 | 4e 0d 09 09 09 47 65 74 |....BEGI|N....Get|
|00001e50| 44 49 74 65 6d 28 64 69 | 61 6c 6f 67 2c 69 74 65 |DItem(di|alog,ite|
|00001e60| 6d 2c 6b 69 6e 64 2c 68 | 2c 72 29 3b 0d 09 09 09 |m,kind,h|,r);....|
|00001e70| 53 65 74 43 74 6c 56 61 | 6c 75 65 28 43 6f 6e 74 |SetCtlVa|lue(Cont|
|00001e80| 72 6f 6c 48 61 6e 64 6c | 65 28 68 29 2c 73 74 61 |rolHandl|e(h),sta|
|00001e90| 74 65 29 3b 0d 09 09 45 | 4e 44 3b 0d 0d 0d 28 2a |te);...E|ND;...(*|
|00001ea0| 2a 20 53 68 6f 77 41 62 | 6f 75 74 4d 65 44 69 61 |* ShowAb|outMeDia|
|00001eb0| 6c 6f 67 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |log ****|********|
|00001ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0d 28 |********|*****).(|
|00001ef0| 2a 0d 28 2a 09 53 68 6f | 77 73 20 74 68 65 20 6f |*.(*.Sho|ws the o|
|00001f00| 62 6c 69 67 61 74 6f 72 | 79 20 76 61 6e 69 74 79 |bligator|y vanity|
|00001f10| 20 62 6f 78 2e 20 4e 6f | 72 6d 61 6c 6c 79 20 73 | box. No|rmally s|
|00001f20| 68 6f 77 73 20 74 68 65 | 20 73 74 61 6e 64 61 72 |hows the| standar|
|00001f30| 64 20 62 6f 72 69 6e 67 | 0d 28 2a 09 44 65 76 65 |d boring|.(*.Deve|
|00001f40| 6c 6f 70 65 72 20 54 65 | 63 68 6e 69 63 61 6c 20 |loper Te|chnical |
|00001f50| 53 75 70 70 6f 72 74 20 | 41 62 6f 75 74 20 62 6f |Support |About bo|
|00001f60| 78 2c 20 62 75 74 20 63 | 61 6e 20 62 65 20 65 6e |x, but c|an be en|
|00001f70| 6c 69 76 65 6e 65 64 20 | 62 79 20 68 6f 6c 64 69 |livened |by holdi|
|00001f80| 6e 67 0d 28 2a 09 74 68 | 65 20 43 6f 6d 6d 61 6e |ng.(*.th|e Comman|
|00001f90| 64 20 6b 65 79 20 77 68 | 65 6e 20 6d 61 6b 69 6e |d key wh|en makin|
|00001fa0| 67 20 74 68 65 20 6d 65 | 6e 75 20 73 65 6c 65 63 |g the me|nu selec|
|00001fb0| 74 69 6f 6e 2e 20 52 69 | 63 6b 20 42 6c 61 69 72 |tion. Ri|ck Blair|
|00001fc0| 20 73 61 79 73 20 74 68 | 61 74 20 69 6e 20 74 68 | says th|at in th|
|00001fd0| 65 0d 28 2a 09 66 75 74 | 75 72 65 2c 20 77 65 27 |e.(*.fut|ure, we'|
|00001fe0| 6c 6c 20 68 61 76 65 20 | 62 65 74 74 65 72 20 6f |ll have |better o|
|00001ff0| 6e 65 73 2e 2e 2e 0d 28 | 2a 0d 28 2a 2a 2a 2a 2a |nes....(|*.(*****|
|00002000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 29 0d 0d 09 50 52 4f |********|*)...PRO|
|00002050| 43 45 44 55 52 45 20 53 | 68 6f 77 41 62 6f 75 74 |CEDURE S|howAbout|
|00002060| 4d 65 44 69 61 6c 6f 67 | 3b 0d 0d 09 09 56 41 52 |MeDialog|;....VAR|
|00002070| 0d 09 09 09 69 74 65 6d | 48 69 74 3a 20 49 6e 74 |....item|Hit: Int|
|00002080| 65 67 65 72 3b 0d 0d 09 | 09 42 45 47 49 4e 0d 09 |eger;...|.BEGIN..|
|00002090| 09 09 49 46 20 28 42 41 | 4e 44 28 6d 79 45 76 65 |..IF (BA|ND(myEve|
|000020a0| 6e 74 2e 6d 6f 64 69 66 | 69 65 72 73 2c 63 6d 64 |nt.modif|iers,cmd|
|000020b0| 4b 65 79 29 20 3d 20 30 | 29 20 54 48 45 4e 0d 09 |Key) = 0|) THEN..|
|000020c0| 09 09 09 69 74 65 6d 48 | 69 74 20 3a 3d 20 41 6c |...itemH|it := Al|
|000020d0| 65 72 74 28 72 61 62 6f | 75 74 4d 65 44 4c 4f 47 |ert(rabo|utMeDLOG|
|000020e0| 2c 20 4e 49 4c 29 0d 09 | 09 09 45 4c 53 45 0d 09 |, NIL)..|..ELSE..|
|000020f0| 09 09 09 69 74 65 6d 48 | 69 74 20 3a 3d 20 41 6c |...itemH|it := Al|
|00002100| 65 72 74 28 72 52 65 61 | 6c 41 62 6f 75 74 4d 65 |ert(rRea|lAboutMe|
|00002110| 44 4c 4f 47 2c 20 4e 49 | 4c 29 3b 0d 09 09 45 4e |DLOG, NI|L);...EN|
|00002120| 44 3b 0d 0d 0d 28 2a 2a | 20 50 61 74 68 4e 61 6d |D;...(**| PathNam|
|00002130| 65 46 72 6f 6d 44 69 72 | 49 44 20 2a 2a 2a 2a 2a |eFromDir|ID *****|
|00002140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002170| 2a 2a 2a 2a 29 0d 28 2a | 0d 28 2a 09 47 69 76 65 |****).(*|.(*.Give|
|00002180| 6e 20 61 20 44 69 72 49 | 44 20 61 6e 64 20 72 65 |n a DirI|D and re|
|00002190| 61 6c 20 76 52 65 66 6e | 75 6d 2c 20 74 68 69 73 |al vRefn|um, this|
|000021a0| 20 72 6f 75 74 69 6e 65 | 20 77 69 6c 6c 20 63 72 | routine| will cr|
|000021b0| 65 61 74 65 20 61 6e 64 | 20 72 65 74 75 72 6e 20 |eate and| return |
|000021c0| 74 68 65 0d 28 2a 09 66 | 75 6c 6c 20 70 61 74 68 |the.(*.f|ull path|
|000021d0| 6e 61 6d 65 20 74 68 61 | 74 20 63 6f 72 72 65 73 |name tha|t corres|
|000021e0| 70 6f 6e 64 73 20 74 6f | 20 69 74 2e 20 49 74 20 |ponds to| it. It |
|000021f0| 64 6f 65 73 20 74 68 69 | 73 20 62 79 20 63 61 6c |does thi|s by cal|
|00002200| 6c 69 6e 67 20 50 42 47 | 65 74 43 61 74 49 6e 66 |ling PBG|etCatInf|
|00002210| 6f 0d 28 2a 09 66 6f 72 | 20 74 68 65 20 67 69 76 |o.(*.for| the giv|
|00002220| 65 6e 20 64 69 72 65 63 | 74 6f 72 79 2c 20 61 6e |en direc|tory, an|
|00002230| 64 20 66 69 6e 64 69 6e | 67 20 6f 75 74 20 69 74 |d findin|g out it|
|00002240| 73 20 6e 61 6d 65 20 61 | 6e 64 20 74 68 65 20 44 |s name a|nd the D|
|00002250| 69 72 49 44 20 6f 66 20 | 69 74 73 0d 28 2a 09 70 |irID of |its.(*.p|
|00002260| 61 72 65 6e 74 2e 20 49 | 74 20 74 68 65 20 70 65 |arent. I|t the pe|
|00002270| 72 66 6f 72 6d 73 20 74 | 68 65 20 73 61 6d 65 20 |rforms t|he same |
|00002280| 6f 70 65 72 61 74 69 6f | 6e 20 6f 6e 20 74 68 65 |operatio|n on the|
|00002290| 20 70 61 72 65 6e 74 2c | 20 73 74 69 63 6b 69 6e | parent,| stickin|
|000022a0| 67 20 49 54 53 0d 28 2a | 09 6e 61 6d 65 20 6f 6e |g ITS.(*|.name on|
|000022b0| 74 6f 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |to the b|eginning|
|000022c0| 20 6f 66 20 74 68 65 20 | 66 69 72 73 74 20 64 69 | of the |first di|
|000022d0| 72 65 63 74 6f 72 79 2e | 20 54 68 69 73 20 77 68 |rectory.| This wh|
|000022e0| 6f 6c 65 20 70 72 6f 63 | 65 73 73 20 69 73 0d 28 |ole proc|ess is.(|
|000022f0| 2a 09 63 61 72 72 69 65 | 64 20 6f 75 74 20 75 6e |*.carrie|d out un|
|00002300| 74 69 6c 20 77 65 20 68 | 61 76 65 20 70 72 6f 63 |til we h|ave proc|
|00002310| 65 73 73 65 64 20 74 68 | 65 20 72 6f 6f 74 20 64 |essed th|e root d|
|00002320| 69 72 65 63 74 6f 72 79 | 20 28 69 64 65 6e 74 69 |irectory| (identi|
|00002330| 66 69 65 64 20 77 69 74 | 68 0d 28 2a 09 61 20 44 |fied wit|h.(*.a D|
|00002340| 69 72 49 44 20 6f 66 20 | 32 2e 0d 28 2a 0d 28 2a |irID of |2..(*.(*|
|00002350| 09 4e 4f 54 45 3a 20 54 | 68 69 73 20 72 6f 75 74 |.NOTE: T|his rout|
|00002360| 69 6e 65 20 69 73 20 6e | 6f 77 20 41 2f 55 58 20 |ine is n|ow A/UX |
|00002370| 66 72 69 65 6e 64 6c 79 | 2e 20 41 2f 55 58 20 6c |friendly|. A/UX l|
|00002380| 69 6b 65 73 20 73 75 62 | 2d 64 69 72 65 63 74 6f |ikes sub|-directo|
|00002390| 72 69 65 73 0d 28 2a 09 | 09 09 09 73 65 70 61 72 |ries.(*.|...separ|
|000023a0| 61 74 65 64 20 62 79 20 | 73 6c 61 73 68 65 73 20 |ated by |slashes |
|000023b0| 69 6e 20 61 20 70 61 74 | 68 6e 61 6d 65 2e 20 54 |in a pat|hname. T|
|000023c0| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 61 75 74 6f |his rout|ine auto|
|000023d0| 6d 61 74 69 63 61 6c 6c | 79 0d 28 2a 09 09 09 09 |maticall|y.(*....|
|000023e0| 75 73 65 73 20 63 6f 6c | 6f 6e 73 20 6f 72 20 73 |uses col|ons or s|
|000023f0| 6c 61 73 68 65 73 20 61 | 73 20 73 65 70 61 72 61 |lashes a|s separa|
|00002400| 74 6f 72 73 20 62 61 73 | 65 64 20 6f 6e 20 74 68 |tors bas|ed on th|
|00002410| 65 20 76 61 6c 75 65 20 | 6f 66 20 74 68 65 0d 28 |e value |of the.(|
|00002420| 2a 09 09 09 09 67 6c 6f | 62 61 6c 20 67 48 61 73 |*....glo|bal gHas|
|00002430| 41 55 58 2e 20 20 54 68 | 69 73 20 67 6c 6f 62 61 |AUX.  Th|is globa|
|00002440| 6c 20 6d 75 73 74 20 62 | 65 20 69 6e 69 74 69 61 |l must b|e initia|
|00002450| 6c 69 7a 65 64 20 63 6f | 72 72 65 63 74 6c 79 20 |lized co|rrectly |
|00002460| 66 6f 72 0d 28 2a 09 09 | 09 09 74 68 69 73 20 72 |for.(*..|..this r|
|00002470| 6f 75 74 69 6e 65 20 74 | 6f 20 64 6f 20 69 74 73 |outine t|o do its|
|00002480| 20 74 68 69 6e 67 2e 20 | 48 6f 77 65 76 65 72 2c | thing. |However,|
|00002490| 20 62 65 63 61 75 73 65 | 20 6f 66 20 74 68 69 73 | because| of this|
|000024a0| 20 64 65 70 65 6e 64 61 | 6e 63 79 0d 28 2a 09 09 | dependa|ncy.(*..|
|000024b0| 09 09 6f 6e 20 74 68 65 | 20 69 64 69 6f 73 79 6e |..on the| idiosyn|
|000024c0| 63 72 61 63 69 65 73 20 | 6f 66 20 66 69 6c 65 20 |cracies |of file |
|000024d0| 73 79 73 74 65 6d 73 2c | 20 67 65 6e 65 72 61 74 |systems,| generat|
|000024e0| 69 6e 67 20 66 75 6c 6c | 20 70 61 74 68 6e 61 6d |ing full| pathnam|
|000024f0| 65 73 0d 28 2a 09 09 09 | 09 66 6f 72 20 6f 74 68 |es.(*...|.for oth|
|00002500| 65 72 20 74 68 61 6e 20 | 64 69 73 70 6c 61 79 20 |er than |display |
|00002510| 70 75 72 70 6f 73 65 73 | 20 69 73 20 64 69 73 63 |purposes| is disc|
|00002520| 6f 75 72 61 67 65 64 3b | 20 69 74 27 73 20 63 68 |ouraged;| it's ch|
|00002530| 61 6e 67 65 64 20 69 6e | 0d 28 2a 09 09 09 09 74 |anged in|.(*....t|
|00002540| 68 65 20 70 61 73 74 20 | 77 68 65 6e 20 41 2f 55 |he past |when A/U|
|00002550| 58 20 77 61 73 20 69 6d | 70 6c 65 6d 65 6e 74 65 |X was im|plemente|
|00002560| 64 2c 20 61 6e 64 20 69 | 74 20 6d 61 79 20 63 68 |d, and i|t may ch|
|00002570| 61 6e 67 65 20 61 67 61 | 69 6e 20 69 6e 0d 28 2a |ange aga|in in.(*|
|00002580| 09 09 09 09 74 68 65 20 | 66 75 74 75 72 65 20 69 |....the |future i|
|00002590| 74 20 73 75 70 70 6f 72 | 74 20 66 6f 72 20 6f 74 |t suppor|t for ot|
|000025a0| 68 65 72 20 66 69 6c 65 | 20 73 79 73 74 65 6d 73 |her file| systems|
|000025b0| 20 73 75 63 68 20 61 73 | 20 50 72 6f 44 4f 53 2c | such as| ProDOS,|
|000025c0| 0d 28 2a 09 09 09 09 4d | 53 2d 44 4f 53 2c 20 6f |.(*....M|S-DOS, o|
|000025d0| 72 20 4f 53 2f 32 20 61 | 72 65 20 61 64 64 65 64 |r OS/2 a|re added|
|000025e0| 2e 0d 28 2a 0d 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..(*.(**|********|
|000025f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002600| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002630| 2a 2a 2a 2a 29 0d 0d 09 | 46 55 4e 43 54 49 4f 4e |****)...|FUNCTION|
|00002640| 20 50 61 74 68 4e 61 6d | 65 46 72 6f 6d 44 69 72 | PathNam|eFromDir|
|00002650| 49 44 20 28 44 69 72 49 | 44 3a 6c 6f 6e 67 69 6e |ID (DirI|D:longin|
|00002660| 74 3b 20 76 52 65 66 6e | 75 6d 3a 69 6e 74 65 67 |t; vRefn|um:integ|
|00002670| 65 72 29 3a 73 74 72 32 | 35 35 3b 0d 0d 09 09 56 |er):str2|55;....V|
|00002680| 41 52 0d 09 09 09 42 6c | 6f 63 6b 20 3a 20 43 49 |AR....Bl|ock : CI|
|00002690| 6e 66 6f 50 42 52 65 63 | 3b 0d 09 09 09 64 69 72 |nfoPBRec|;....dir|
|000026a0| 65 63 74 6f 72 79 4e 61 | 6d 65 2c 20 46 75 6c 6c |ectoryNa|me, Full|
|000026b0| 50 61 74 68 4e 61 6d 65 | 20 3a 20 73 74 72 32 35 |PathName| : str25|
|000026c0| 35 3b 0d 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 46 |5;....BE|GIN....F|
|000026d0| 75 6c 6c 50 61 74 68 4e | 61 6d 65 20 3a 3d 20 27 |ullPathN|ame := '|
|000026e0| 27 3b 0d 09 09 09 57 49 | 54 48 20 62 6c 6f 63 6b |';....WI|TH block|
|000026f0| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 09 69 6f | DO BEGI|N.....io|
|00002700| 4e 61 6d 65 50 74 72 20 | 3a 3d 20 40 64 69 72 65 |NamePtr |:= @dire|
|00002710| 63 74 6f 72 79 4e 61 6d | 65 3b 0d 09 09 09 09 69 |ctoryNam|e;.....i|
|00002720| 6f 44 72 50 61 72 49 44 | 20 3a 3d 20 44 69 72 49 |oDrParID| := DirI|
|00002730| 64 3b 0d 09 09 09 45 4e | 44 3b 0d 0d 09 09 09 52 |d;....EN|D;.....R|
|00002740| 45 50 45 41 54 0d 09 09 | 09 09 57 49 54 48 20 62 |EPEAT...|..WITH b|
|00002750| 6c 6f 63 6b 20 44 4f 20 | 42 45 47 49 4e 0d 09 09 |lock DO |BEGIN...|
|00002760| 09 09 09 69 6f 56 52 65 | 66 4e 75 6d 20 3a 3d 20 |...ioVRe|fNum := |
|00002770| 76 52 65 66 4e 75 6d 3b | 0d 09 09 09 09 09 69 6f |vRefNum;|......io|
|00002780| 46 44 69 72 49 6e 64 65 | 78 20 3a 3d 20 2d 31 3b |FDirInde|x := -1;|
|00002790| 0d 09 09 09 09 09 69 6f | 44 72 44 69 72 49 44 20 |......io|DrDirID |
|000027a0| 3a 3d 20 62 6c 6f 63 6b | 2e 69 6f 44 72 50 61 72 |:= block|.ioDrPar|
|000027b0| 49 44 3b 0d 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |ID;.....|END;....|
|000027c0| 09 65 72 72 20 3a 3d 20 | 50 42 47 65 74 43 61 74 |.err := |PBGetCat|
|000027d0| 49 6e 66 6f 28 40 42 6c | 6f 63 6b 2c 46 41 4c 53 |Info(@Bl|ock,FALS|
|000027e0| 45 29 3b 0d 0d 09 09 09 | 09 49 46 20 68 61 76 65 |E);.....|.IF have|
|000027f0| 41 55 58 20 54 48 45 4e | 20 42 45 47 49 4e 0d 09 |AUX THEN| BEGIN..|
|00002800| 09 09 09 09 49 46 20 64 | 69 72 65 63 74 6f 72 79 |....IF d|irectory|
|00002810| 4e 61 6d 65 5b 31 5d 20 | 3c 3e 20 27 2f 27 20 54 |Name[1] |<> '/' T|
|00002820| 48 45 4e 20 42 45 47 49 | 4e 0d 09 09 09 09 09 09 |HEN BEGI|N.......|
|00002830| 7b 20 49 66 20 74 68 69 | 73 20 69 73 6e 27 74 20 |{ If thi|s isn't |
|00002840| 72 6f 6f 74 20 28 69 2e | 65 2e 20 22 2f 22 29 2c |root (i.|e. "/"),|
|00002850| 20 61 70 70 65 6e 64 20 | 61 20 73 6c 61 73 68 20 | append |a slash |
|00002860| 28 27 2f 27 29 20 7d 0d | 09 09 09 09 09 09 64 69 |('/') }.|......di|
|00002870| 72 65 63 74 6f 72 79 4e | 61 6d 65 20 3a 3d 20 63 |rectoryN|ame := c|
|00002880| 6f 6e 63 61 74 28 64 69 | 72 65 63 74 6f 72 79 4e |oncat(di|rectoryN|
|00002890| 61 6d 65 2c 20 27 2f 27 | 29 3b 0d 09 09 09 09 09 |ame, '/'|);......|
|000028a0| 45 4e 44 3b 0d 09 09 09 | 09 45 4e 44 20 45 4c 53 |END;....|.END ELS|
|000028b0| 45 20 42 45 47 49 4e 0d | 09 09 09 09 09 64 69 72 |E BEGIN.|.....dir|
|000028c0| 65 63 74 6f 72 79 4e 61 | 6d 65 20 3a 3d 20 63 6f |ectoryNa|me := co|
|000028d0| 6e 63 61 74 28 64 69 72 | 65 63 74 6f 72 79 4e 61 |ncat(dir|ectoryNa|
|000028e0| 6d 65 2c 27 3a 27 29 3b | 0d 09 09 09 09 45 4e 44 |me,':');|.....END|
|000028f0| 3b 0d 09 09 09 09 66 75 | 6c 6c 50 61 74 68 4e 61 |;.....fu|llPathNa|
|00002900| 6d 65 20 3a 3d 20 63 6f | 6e 63 61 74 28 64 69 72 |me := co|ncat(dir|
|00002910| 65 63 74 6f 72 79 4e 61 | 6d 65 2c 66 75 6c 6c 50 |ectoryNa|me,fullP|
|00002920| 61 74 68 4e 61 6d 65 29 | 3b 0d 0d 09 09 09 55 4e |athName)|;.....UN|
|00002930| 54 49 4c 20 28 62 6c 6f | 63 6b 2e 69 6f 44 72 44 |TIL (blo|ck.ioDrD|
|00002940| 69 72 49 44 20 3d 20 32 | 29 3b 0d 0d 09 09 09 50 |irID = 2|);.....P|
|00002950| 61 74 68 4e 61 6d 65 46 | 72 6f 6d 44 69 72 49 44 |athNameF|romDirID|
|00002960| 20 3a 3d 20 66 75 6c 6c | 50 61 74 68 4e 61 6d 65 | := full|PathName|
|00002970| 3b 0d 09 09 45 4e 44 3b | 0d 0d 0d 28 2a 2a 20 50 |;...END;|...(** P|
|00002980| 61 74 68 4e 61 6d 65 46 | 72 6f 6d 57 44 20 2a 2a |athNameF|romWD **|
|00002990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000029a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000029b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000029c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 29 0d 28 2a 0d 28 |********|**).(*.(|
|000029d0| 2a 09 47 69 76 65 6e 20 | 61 6e 20 48 46 53 20 77 |*.Given |an HFS w|
|000029e0| 6f 72 6b 69 6e 67 20 64 | 69 72 65 63 74 6f 72 79 |orking d|irectory|
|000029f0| 2c 20 74 68 69 73 20 72 | 6f 75 74 69 6e 65 20 72 |, this r|outine r|
|00002a00| 65 74 75 72 6e 73 20 74 | 68 65 20 66 75 6c 6c 20 |eturns t|he full |
|00002a10| 70 61 74 68 6e 61 6d 65 | 0d 28 2a 09 74 68 61 74 |pathname|.(*.that|
|00002a20| 20 63 6f 72 72 65 73 70 | 6f 6e 64 73 20 74 6f 20 | corresp|onds to |
|00002a30| 69 74 2e 20 49 74 20 64 | 6f 65 73 20 74 68 69 73 |it. It d|oes this|
|00002a40| 20 62 79 20 63 61 6c 6c | 69 6e 67 20 50 42 47 65 | by call|ing PBGe|
|00002a50| 74 57 44 49 6e 66 6f 20 | 74 6f 20 67 65 74 20 74 |tWDInfo |to get t|
|00002a60| 68 65 0d 28 2a 09 56 52 | 65 66 4e 75 6d 20 61 6e |he.(*.VR|efNum an|
|00002a70| 64 20 44 69 72 49 44 20 | 6f 66 20 74 68 65 20 72 |d DirID |of the r|
|00002a80| 65 61 6c 20 64 69 72 65 | 63 74 6f 72 79 2e 20 49 |eal dire|ctory. I|
|00002a90| 74 20 74 68 65 6e 20 63 | 61 6c 6c 73 20 50 61 74 |t then c|alls Pat|
|00002aa0| 68 4e 61 6d 65 46 72 6f | 6d 44 69 72 49 44 2c 0d |hNameFro|mDirID,.|
|00002ab0| 28 2a 09 61 6e 64 20 72 | 65 74 75 72 6e 73 20 69 |(*.and r|eturns i|
|00002ac0| 74 73 20 72 65 73 75 6c | 74 2e 0d 28 2a 0d 28 2a |ts resul|t..(*.(*|
|00002ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002b10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0d 0d |********|*****)..|
|00002b20| 09 46 55 4e 43 54 49 4f | 4e 20 50 61 74 68 4e 61 |.FUNCTIO|N PathNa|
|00002b30| 6d 65 46 72 6f 6d 57 44 | 28 76 52 65 66 4e 75 6d |meFromWD|(vRefNum|
|00002b40| 3a 6c 6f 6e 67 69 6e 74 | 29 3a 73 74 72 32 35 35 |:longint|):str255|
|00002b50| 3b 0d 0d 09 09 56 41 52 | 0d 09 09 09 6d 79 42 6c |;....VAR|....myBl|
|00002b60| 6f 63 6b 20 3a 20 57 44 | 50 42 52 65 63 3b 0d 0d |ock : WD|PBRec;..|
|00002b70| 09 09 42 45 47 49 4e 0d | 0d 09 09 09 7b 0d 09 09 |..BEGIN.|....{...|
|00002b80| 09 7b 20 50 42 47 65 74 | 57 44 49 6e 66 6f 20 68 |.{ PBGet|WDInfo h|
|00002b90| 61 73 20 61 20 62 75 67 | 20 75 6e 64 65 72 20 41 |as a bug| under A|
|00002ba0| 2f 55 58 20 31 2e 31 2e | 20 20 49 66 20 76 52 65 |/UX 1.1.|  If vRe|
|00002bb0| 66 4e 75 6d 20 69 73 20 | 61 20 72 65 61 6c 20 76 |fNum is |a real v|
|00002bc0| 52 65 66 4e 75 6d 0d 09 | 09 09 7b 20 61 6e 64 20 |RefNum..|..{ and |
|00002bd0| 6e 6f 74 20 61 20 77 64 | 52 65 66 4e 75 6d 2c 20 |not a wd|RefNum, |
|00002be0| 74 68 65 6e 20 69 74 20 | 72 65 74 75 72 6e 73 20 |then it |returns |
|00002bf0| 67 61 72 62 61 67 65 2e | 20 20 53 69 6e 63 65 20 |garbage.|  Since |
|00002c00| 41 2f 55 58 20 68 61 73 | 20 6f 6e 6c 79 20 31 0d |A/UX has| only 1.|
|00002c10| 09 09 09 7b 20 76 6f 6c | 75 6d 65 20 28 69 6e 20 |...{ vol|ume (in |
|00002c20| 74 68 65 20 4d 61 63 69 | 6e 74 6f 73 68 20 73 65 |the Maci|ntosh se|
|00002c30| 6e 73 65 29 20 61 6e 64 | 20 6f 6e 6c 79 20 31 20 |nse) and| only 1 |
|00002c40| 72 6f 6f 74 20 64 69 72 | 65 63 74 6f 72 79 2c 20 |root dir|ectory, |
|00002c50| 74 68 69 73 20 63 61 6e | 0d 09 09 09 7b 20 6f 63 |this can|....{ oc|
|00002c60| 63 75 72 20 6f 6e 6c 79 | 20 77 68 65 6e 20 61 20 |cur only| when a |
|00002c70| 66 69 6c 65 20 68 61 73 | 20 62 65 65 6e 20 73 65 |file has| been se|
|00002c80| 6c 65 63 74 65 64 20 69 | 6e 20 74 68 65 20 72 6f |lected i|n the ro|
|00002c90| 6f 74 20 64 69 72 65 63 | 74 6f 72 79 20 28 2f 29 |ot direc|tory (/)|
|00002ca0| 2e 0d 09 09 09 7b 20 53 | 6f 20 77 65 20 6c 6f 6f |.....{ S|o we loo|
|00002cb0| 6b 20 66 6f 72 20 74 68 | 69 73 20 61 6e 64 20 68 |k for th|is and h|
|00002cc0| 61 72 64 63 6f 64 65 20 | 74 68 65 20 44 69 72 49 |ardcode |the DirI|
|00002cd0| 44 20 61 6e 64 20 76 52 | 65 66 4e 75 6d 2e 20 7d |D and vR|efNum. }|
|00002ce0| 0d 0d 09 09 09 49 46 20 | 28 68 61 76 65 41 55 58 |.....IF |(haveAUX|
|00002cf0| 29 20 41 4e 44 20 28 76 | 52 65 66 4e 75 6d 20 3d |) AND (v|RefNum =|
|00002d00| 20 2d 31 29 20 54 48 45 | 4e 20 42 45 47 49 4e 0d | -1) THE|N BEGIN.|
|00002d10| 0d 09 09 09 09 50 61 74 | 68 4e 61 6d 65 46 72 6f |.....Pat|hNameFro|
|00002d20| 6d 57 44 20 3a 3d 20 50 | 61 74 68 4e 61 6d 65 46 |mWD := P|athNameF|
|00002d30| 72 6f 6d 44 69 72 49 44 | 28 32 2c 2d 31 29 3b 0d |romDirID|(2,-1);.|
|00002d40| 0d 09 09 09 45 4e 44 20 | 45 4c 53 45 20 42 45 47 |....END |ELSE BEG|
|00002d50| 49 4e 0d 0d 09 09 09 09 | 57 49 54 48 20 6d 79 42 |IN......|WITH myB|
|00002d60| 6c 6f 63 6b 20 44 4f 20 | 42 45 47 49 4e 0d 09 09 |lock DO |BEGIN...|
|00002d70| 09 09 09 69 6f 4e 61 6d | 65 50 74 72 20 3a 3d 20 |...ioNam|ePtr := |
|00002d80| 4e 49 4c 3b 0d 09 09 09 | 09 09 69 6f 56 52 65 66 |NIL;....|..ioVRef|
|00002d90| 4e 75 6d 20 3a 3d 20 76 | 52 65 66 4e 75 6d 3b 0d |Num := v|RefNum;.|
|00002da0| 09 09 09 09 09 69 6f 57 | 44 49 6e 64 65 78 20 3a |.....ioW|DIndex :|
|00002db0| 3d 20 30 3b 0d 09 09 09 | 09 09 69 6f 57 44 50 72 |= 0;....|..ioWDPr|
|00002dc0| 6f 63 49 44 20 3a 3d 20 | 30 3b 0d 09 09 09 09 45 |ocID := |0;.....E|
|00002dd0| 4e 44 3b 0d 0d 09 09 09 | 7b 20 43 68 61 6e 67 65 |ND;.....|{ Change|
|00002de0| 20 74 68 65 20 57 6f 72 | 6b 69 6e 67 20 44 69 72 | the Wor|king Dir|
|00002df0| 65 63 74 6f 72 79 20 6e | 75 6d 62 65 72 20 69 6e |ectory n|umber in|
|00002e00| 20 76 52 65 66 6e 75 6d | 20 69 6e 74 6f 20 61 20 | vRefnum| into a |
|00002e10| 72 65 61 6c 20 76 52 65 | 66 6e 75 6d 20 7d 0d 09 |real vRe|fnum }..|
|00002e20| 09 09 7b 20 61 6e 64 20 | 44 69 72 49 44 2e 20 54 |..{ and |DirID. T|
|00002e30| 68 65 20 72 65 61 6c 20 | 76 52 65 66 6e 75 6d 20 |he real |vRefnum |
|00002e40| 69 73 20 72 65 74 75 72 | 6e 65 64 20 69 6e 20 69 |is retur|ned in i|
|00002e50| 6f 56 52 65 66 6e 75 6d | 2c 20 61 6e 64 20 74 68 |oVRefnum|, and th|
|00002e60| 65 20 72 65 61 6c 20 7d | 0d 09 09 09 7b 20 44 69 |e real }|....{ Di|
|00002e70| 72 49 44 20 69 73 20 72 | 65 74 75 72 6e 65 64 20 |rID is r|eturned |
|00002e80| 69 6e 20 69 6f 57 44 44 | 69 72 49 44 2e 20 7d 0d |in ioWDD|irID. }.|
|00002e90| 0d 09 09 09 09 65 72 72 | 20 3a 3d 20 50 42 47 65 |.....err| := PBGe|
|00002ea0| 74 57 44 49 6e 66 6f 28 | 40 6d 79 42 6c 6f 63 6b |tWDInfo(|@myBlock|
|00002eb0| 2c 46 41 4c 53 45 29 3b | 0d 0d 09 09 09 09 57 49 |,FALSE);|......WI|
|00002ec0| 54 48 20 6d 79 42 6c 6f | 63 6b 20 44 4f 0d 09 09 |TH myBlo|ck DO...|
|00002ed0| 09 09 09 50 61 74 68 4e | 61 6d 65 46 72 6f 6d 57 |...PathN|ameFromW|
|00002ee0| 44 20 3a 3d 20 50 61 74 | 68 4e 61 6d 65 46 72 6f |D := Pat|hNameFro|
|00002ef0| 6d 44 69 72 49 44 28 69 | 6f 57 44 44 69 72 49 44 |mDirID(i|oWDDirID|
|00002f00| 2c 69 6f 57 44 56 52 65 | 66 6e 75 6d 29 0d 09 09 |,ioWDVRe|fnum)...|
|00002f10| 09 45 4e 44 3b 0d 09 09 | 45 4e 44 3b 0d 0d 0d 28 |.END;...|END;...(|
|00002f20| 2a 2a 20 53 68 6f 77 53 | 65 6c 65 63 74 69 6f 6e |** ShowS|election|
|00002f30| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00002f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 29 0d |********|******).|
|00002f70| 28 2a 0d 28 2a 09 54 68 | 69 73 20 72 6f 75 74 69 |(*.(*.Th|is routi|
|00002f80| 6e 65 20 61 63 63 65 70 | 74 73 20 61 20 73 74 72 |ne accep|ts a str|
|00002f90| 69 6e 67 20 61 73 20 69 | 6e 70 75 74 2c 20 70 72 |ing as i|nput, pr|
|00002fa0| 65 70 65 6e 64 73 20 53 | 54 52 23 28 32 35 36 2c |epends S|TR#(256,|
|00002fb0| 34 29 20 2d 20 77 68 69 | 63 68 0d 28 2a 09 73 68 |4) - whi|ch.(*.sh|
|00002fc0| 6f 75 6c 64 20 62 65 20 | 22 54 68 65 20 69 74 65 |ould be |"The ite|
|00002fd0| 6d 20 73 65 6c 65 63 74 | 65 64 20 77 61 73 20 22 |m select|ed was "|
|00002fe0| 20 2d 20 61 6e 64 20 73 | 68 6f 77 73 20 61 20 4e | - and s|hows a N|
|00002ff0| 6f 74 65 41 6c 65 72 74 | 20 77 69 74 68 20 74 68 |oteAlert| with th|
|00003000| 65 0d 28 2a 09 72 65 73 | 75 6c 74 2e 0d 28 2a 0d |e.(*.res|ult..(*.|
|00003010| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00003020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 29 |********|*******)|
|00003060| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 53 68 6f |...PROCE|DURE Sho|
|00003070| 77 53 65 6c 65 63 74 69 | 6f 6e 28 74 68 65 53 74 |wSelecti|on(theSt|
|00003080| 72 69 6e 67 3a 73 74 72 | 32 35 35 29 3b 0d 0d 09 |ring:str|255);...|
|00003090| 09 56 41 52 0d 09 09 09 | 74 53 74 72 3a 20 73 74 |.VAR....|tStr: st|
|000030a0| 72 32 35 35 3b 0d 0d 09 | 09 42 45 47 49 4e 0d 09 |r255;...|.BEGIN..|
|000030b0| 09 09 47 65 74 49 6e 64 | 53 74 72 69 6e 67 28 74 |..GetInd|String(t|
|000030c0| 53 74 72 2c 72 53 74 72 | 4d 69 73 63 2c 34 29 3b |Str,rStr|Misc,4);|
|000030d0| 0d 09 09 09 50 61 72 61 | 6d 54 65 78 74 28 63 6f |....Para|mText(co|
|000030e0| 6e 63 61 74 28 74 53 74 | 72 2c 74 68 65 53 74 72 |ncat(tSt|r,theStr|
|000030f0| 69 6e 67 29 2c 27 27 2c | 27 27 2c 27 27 29 3b 0d |ing),'',|'','');.|
|00003100| 09 09 09 49 46 20 42 6f | 6f 6c 65 61 6e 28 4e 6f |...IF Bo|olean(No|
|00003110| 74 65 41 6c 65 72 74 28 | 72 53 68 6f 77 53 65 6c |teAlert(|rShowSel|
|00003120| 65 63 74 69 6f 6e 44 4c | 4f 47 2c 20 4e 49 4c 29 |ectionDL|OG, NIL)|
|00003130| 29 20 54 48 45 4e 3b 0d | 09 09 45 4e 44 3b 0d 0d |) THEN;.|..END;..|
|00003140| 0d 28 2a 2a 20 53 68 6f | 77 43 61 6e 63 65 6c 6c |.(** Sho|wCancell|
|00003150| 65 64 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ed *****|********|
|00003160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003190| 29 0d 28 2a 0d 28 2a 09 | 53 68 6f 77 73 20 53 54 |).(*.(*.|Shows ST|
|000031a0| 52 23 28 32 35 36 2c 35 | 29 20 69 6e 20 61 20 4e |R#(256,5|) in a N|
|000031b0| 6f 74 65 41 6c 65 72 74 | 2e 20 54 68 69 73 20 73 |oteAlert|. This s|
|000031c0| 74 72 69 6e 67 20 73 61 | 79 73 20 69 6e 20 45 6e |tring sa|ys in En|
|000031d0| 67 6c 69 73 68 20 22 54 | 68 65 20 43 61 6e 63 65 |glish "T|he Cance|
|000031e0| 6c 0d 28 2a 09 62 75 74 | 74 6f 6e 20 77 61 73 20 |l.(*.but|ton was |
|000031f0| 70 72 65 73 73 65 64 2e | 22 0d 28 2a 09 09 09 09 |pressed.|".(*....|
|00003200| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00003210| 09 09 2d 20 44 6f 75 67 | 6c 61 73 20 48 6f 66 73 |..- Doug|las Hofs|
|00003220| 74 61 64 74 65 72 0d 28 | 2a 0d 28 2a 2a 2a 2a 2a |tadter.(|*.(*****|
|00003230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 29 0d 0d 09 50 52 4f |********|*)...PRO|
|00003280| 43 45 44 55 52 45 20 53 | 68 6f 77 43 61 6e 63 65 |CEDURE S|howCance|
|00003290| 6c 6c 65 64 3b 0d 0d 09 | 09 56 41 52 0d 09 09 09 |lled;...|.VAR....|
|000032a0| 74 53 74 72 3a 20 73 74 | 72 32 35 35 3b 0d 0d 09 |tStr: st|r255;...|
|000032b0| 09 42 45 47 49 4e 0d 09 | 09 09 47 65 74 49 6e 64 |.BEGIN..|..GetInd|
|000032c0| 53 74 72 69 6e 67 28 74 | 53 74 72 2c 72 53 74 72 |String(t|Str,rStr|
|000032d0| 4d 69 73 63 2c 35 29 3b | 0d 09 09 09 50 61 72 61 |Misc,5);|....Para|
|000032e0| 6d 54 65 78 74 28 74 53 | 74 72 2c 27 27 2c 27 27 |mText(tS|tr,'',''|
|000032f0| 2c 27 27 29 3b 0d 09 09 | 09 49 46 20 42 6f 6f 6c |,'');...|.IF Bool|
|00003300| 65 61 6e 28 4e 6f 74 65 | 41 6c 65 72 74 28 72 53 |ean(Note|Alert(rS|
|00003310| 68 6f 77 53 65 6c 65 63 | 74 69 6f 6e 44 4c 4f 47 |howSelec|tionDLOG|
|00003320| 2c 4e 49 4c 29 29 20 54 | 48 45 4e 3b 0d 09 09 45 |,NIL)) T|HEN;...E|
|00003330| 4e 44 3b 0d 0d 0d 28 2a | 2a 20 64 6f 4e 6f 72 6d |ND;...(*|* doNorm|
|00003340| 61 6c 47 65 74 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |alGet **|********|
|00003350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003380| 2a 2a 2a 2a 2a 29 0d 28 | 2a 0d 28 2a 09 53 69 6d |*****).(|*.(*.Sim|
|00003390| 70 6c 65 73 74 20 66 6f | 72 6d 20 6f 66 20 53 46 |plest fo|rm of SF|
|000033a0| 47 65 74 46 69 6c 65 2e | 20 54 68 69 73 20 72 6f |GetFile.| This ro|
|000033b0| 75 74 69 6e 65 20 70 75 | 74 73 20 75 70 20 61 20 |utine pu|ts up a |
|000033c0| 47 65 74 46 69 6c 65 20 | 64 69 61 6c 6f 67 20 77 |GetFile |dialog w|
|000033d0| 69 74 68 0d 28 2a 09 61 | 20 72 65 71 75 65 73 74 |ith.(*.a| request|
|000033e0| 20 74 6f 20 73 68 6f 77 | 20 61 6c 6c 20 66 69 6c | to show| all fil|
|000033f0| 65 73 2e 20 57 68 65 6e | 20 74 68 69 73 20 69 73 |es. When| this is|
|00003400| 20 64 6f 6e 65 2c 20 61 | 20 63 68 65 63 6b 20 69 | done, a| check i|
|00003410| 73 20 6d 61 64 65 20 74 | 6f 20 73 65 65 0d 28 2a |s made t|o see.(*|
|00003420| 09 77 68 69 63 68 20 6f | 66 20 74 68 65 20 53 61 |.which o|f the Sa|
|00003430| 76 65 20 6f 72 20 43 61 | 6e 63 65 6c 20 62 75 74 |ve or Ca|ncel but|
|00003440| 74 6f 6e 73 20 77 65 72 | 65 20 70 72 65 73 73 65 |tons wer|e presse|
|00003450| 64 2e 20 49 66 20 74 68 | 65 20 53 61 76 65 20 62 |d. If th|e Save b|
|00003460| 75 74 74 6f 6e 20 77 61 | 73 0d 28 2a 09 70 72 65 |utton wa|s.(*.pre|
|00003470| 73 73 65 64 2c 20 53 68 | 6f 77 53 65 6c 65 63 74 |ssed, Sh|owSelect|
|00003480| 69 6f 6e 20 69 73 20 63 | 61 6c 6c 65 64 20 74 6f |ion is c|alled to|
|00003490| 20 64 69 73 70 6c 61 79 | 20 77 68 69 63 68 20 66 | display| which f|
|000034a0| 69 6c 65 20 77 61 73 20 | 73 65 6c 65 63 74 65 64 |ile was |selected|
|000034b0| 2e 20 49 66 20 74 68 65 | 0d 28 2a 09 43 61 6e 63 |. If the|.(*.Canc|
|000034c0| 65 6c 20 62 75 74 74 6f | 6e 20 77 61 73 20 70 72 |el butto|n was pr|
|000034d0| 65 73 73 65 64 2c 20 61 | 20 64 69 61 6c 6f 67 20 |essed, a| dialog |
|000034e0| 69 73 20 73 68 6f 77 6e | 20 73 61 79 69 6e 67 20 |is shown| saying |
|000034f0| 73 6f 2e 0d 28 2a 0d 28 | 2a 09 4e 4f 54 45 3a 20 |so..(*.(|*.NOTE: |
|00003500| 74 68 65 20 73 65 63 6f | 6e 64 20 70 61 72 61 6d |the seco|nd param|
|00003510| 65 74 65 72 20 2d 20 74 | 68 65 20 70 72 6f 6d 70 |eter - t|he promp|
|00003520| 74 20 73 74 72 69 6e 67 | 20 2d 20 69 73 20 69 67 |t string| - is ig|
|00003530| 6e 6f 72 65 64 20 69 6e | 20 53 46 47 65 74 46 69 |nored in| SFGetFi|
|00003540| 6c 65 0d 28 2a 09 09 09 | 09 63 61 6c 6c 73 2e 20 |le.(*...|.calls. |
|00003550| 41 73 20 6e 6f 74 65 64 | 20 6f 6e 20 70 61 67 65 |As noted| on page|
|00003560| 20 49 2d 35 32 33 20 6f | 66 20 49 6e 73 69 64 65 | I-523 o|f Inside|
|00003570| 20 4d 61 63 2c 20 69 74 | 20 69 73 20 74 68 65 72 | Mac, it| is ther|
|00003580| 65 20 66 6f 72 0d 28 2a | 09 09 09 09 68 69 73 74 |e for.(*|....hist|
|00003590| 6f 72 69 63 61 6c 20 72 | 65 61 73 6f 6e 73 20 6f |orical r|easons o|
|000035a0| 6e 6c 79 2e 0d 28 2a 0d | 28 2a 2a 2a 2a 2a 2a 2a |nly..(*.|(*******|
|000035b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035f0| 2a 2a 2a 2a 2a 2a 2a 29 | 0d 0d 09 50 52 4f 43 45 |*******)|...PROCE|
|00003600| 44 55 52 45 20 64 6f 4e | 6f 72 6d 61 6c 47 65 74 |DURE doN|ormalGet|
|00003610| 3b 0d 0d 09 09 42 45 47 | 49 4e 0d 09 09 09 53 46 |;....BEG|IN....SF|
|00003620| 47 65 74 46 69 6c 65 28 | 50 6f 69 6e 74 28 24 30 |GetFile(|Point($0|
|00003630| 30 34 30 30 30 34 30 29 | 2c 09 09 7b 6c 6f 63 61 |0400040)|,..{loca|
|00003640| 74 69 6f 6e 7d 0d 09 09 | 09 09 09 09 09 27 53 70 |tion}...|.....'Sp|
|00003650| 61 63 65 20 66 6f 72 20 | 52 65 6e 74 27 2c 09 09 |ace for |Rent',..|
|00003660| 09 7b 76 65 73 74 69 67 | 69 61 6c 20 73 74 72 69 |.{vestig|ial stri|
|00003670| 6e 67 7d 0d 09 09 09 09 | 09 09 09 4e 49 4c 2c 09 |ng}.....|...NIL,.|
|00003680| 09 09 09 09 09 09 09 09 | 7b 66 69 6c 65 46 69 6c |........|{fileFil|
|00003690| 74 65 72 7d 0d 09 09 09 | 09 09 09 09 2d 31 2c 09 |ter}....|....-1,.|
|000036a0| 09 09 09 09 09 09 09 09 | 09 7b 6e 75 6d 74 79 70 |........|.{numtyp|
|000036b0| 65 73 3b 20 2d 31 20 6d | 65 61 6e 73 20 61 6c 6c |es; -1 m|eans all|
|000036c0| 7d 0d 09 09 09 09 09 09 | 09 74 79 70 65 4c 69 73 |}.......|.typeLis|
|000036d0| 74 2c 09 09 09 09 09 09 | 09 7b 61 72 72 61 79 20 |t,......|.{array |
|000036e0| 74 6f 20 74 79 70 65 73 | 20 74 6f 20 73 68 6f 77 |to types| to show|
|000036f0| 7d 0d 09 09 09 09 09 09 | 09 4e 49 4c 2c 09 09 09 |}.......|.NIL,...|
|00003700| 09 09 09 09 09 09 7b 64 | 6c 67 48 6f 6f 6b 7d 0d |......{d|lgHook}.|
|00003710| 09 09 09 09 09 09 09 72 | 65 70 6c 79 29 3b 09 09 |.......r|eply);..|
|00003720| 09 09 09 09 09 09 7b 72 | 65 63 6f 72 64 20 66 6f |......{r|ecord fo|
|00003730| 72 20 72 65 74 75 72 6e | 65 64 20 76 61 6c 75 65 |r return|ed value|
|00003740| 73 7d 0d 09 09 09 49 46 | 20 72 65 70 6c 79 2e 67 |s}....IF| reply.g|
|00003750| 6f 6f 64 20 54 48 45 4e | 0d 09 09 09 09 53 68 6f |ood THEN|.....Sho|
|00003760| 77 53 65 6c 65 63 74 69 | 6f 6e 28 63 6f 6e 63 61 |wSelecti|on(conca|
|00003770| 74 28 50 61 74 68 6e 61 | 6d 65 46 72 6f 6d 57 44 |t(Pathna|meFromWD|
|00003780| 28 72 65 70 6c 79 2e 76 | 52 65 66 4e 75 6d 29 2c |(reply.v|RefNum),|
|00003790| 72 65 70 6c 79 2e 66 4e | 61 6d 65 29 29 0d 09 09 |reply.fN|ame))...|
|000037a0| 09 45 4c 53 45 0d 09 09 | 09 09 53 68 6f 77 43 61 |.ELSE...|..ShowCa|
|000037b0| 6e 63 65 6c 6c 65 64 3b | 0d 09 09 45 4e 44 3b 0d |ncelled;|...END;.|
|000037c0| 0d 0d 28 2a 2a 20 64 6f | 4e 6f 72 6d 61 6c 50 75 |..(** do|NormalPu|
|000037d0| 74 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |t ******|********|
|000037e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003810| 2a 29 0d 28 2a 0d 28 2a | 09 53 69 6d 70 6c 65 73 |*).(*.(*|.Simples|
|00003820| 74 20 66 6f 72 6d 20 6f | 66 20 53 46 50 75 74 46 |t form o|f SFPutF|
|00003830| 69 6c 65 2e 20 54 68 69 | 73 20 72 6f 75 74 69 6e |ile. Thi|s routin|
|00003840| 65 20 70 75 74 73 20 75 | 70 20 61 20 50 75 74 46 |e puts u|p a PutF|
|00003850| 69 6c 65 20 64 69 61 6c | 6f 67 20 77 69 74 68 20 |ile dial|og with |
|00003860| 61 0d 28 2a 09 70 72 6f | 6d 70 74 20 61 6e 64 20 |a.(*.pro|mpt and |
|00003870| 73 75 67 67 65 73 74 65 | 64 20 66 69 6c 65 20 6e |suggeste|d file n|
|00003880| 61 6d 65 2e 0d 28 2a 0d | 28 2a 2a 2a 2a 2a 2a 2a |ame..(*.|(*******|
|00003890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038d0| 2a 2a 2a 2a 2a 2a 2a 29 | 0d 0d 09 50 52 4f 43 45 |*******)|...PROCE|
|000038e0| 44 55 52 45 20 64 6f 4e | 6f 72 6d 61 6c 50 75 74 |DURE doN|ormalPut|
|000038f0| 3b 0d 0d 09 09 42 45 47 | 49 4e 0d 09 09 09 53 46 |;....BEG|IN....SF|
|00003900| 50 75 74 46 69 6c 65 28 | 50 6f 69 6e 74 28 24 30 |PutFile(|Point($0|
|00003910| 30 34 30 30 30 34 30 29 | 2c 09 09 7b 6c 6f 63 61 |0400040)|,..{loca|
|00003920| 74 69 6f 6e 7d 0d 09 09 | 09 09 09 09 09 27 53 61 |tion}...|.....'Sa|
|00003930| 76 65 20 64 6f 63 75 6d | 65 6e 74 20 61 73 3a 27 |ve docum|ent as:'|
|00003940| 2c 09 7b 70 72 6f 6d 70 | 74 20 73 74 72 69 6e 67 |,.{promp|t string|
|00003950| 7d 0d 09 09 09 09 09 09 | 09 27 44 6f 75 67 27 2c |}.......|.'Doug',|
|00003960| 09 09 09 09 09 09 09 09 | 7b 6f 72 69 67 69 6e 61 |........|{origina|
|00003970| 6c 20 6e 61 6d 65 7d 0d | 09 09 09 09 09 09 09 4e |l name}.|.......N|
|00003980| 49 4c 2c 09 09 09 09 09 | 09 09 09 09 7b 64 6c 67 |IL,.....|....{dlg|
|00003990| 48 6f 6f 6b 7d 0d 09 09 | 09 09 09 09 09 72 65 70 |Hook}...|.....rep|
|000039a0| 6c 79 29 3b 09 09 09 09 | 09 09 09 09 7b 72 65 63 |ly);....|....{rec|
|000039b0| 6f 72 64 20 66 6f 72 20 | 72 65 74 75 72 6e 65 64 |ord for |returned|
|000039c0| 20 76 61 6c 75 65 73 7d | 0d 09 09 09 49 46 20 72 | values}|....IF r|
|000039d0| 65 70 6c 79 2e 67 6f 6f | 64 20 54 48 45 4e 0d 09 |eply.goo|d THEN..|
|000039e0| 09 09 09 53 68 6f 77 53 | 65 6c 65 63 74 69 6f 6e |...ShowS|election|
|000039f0| 28 63 6f 6e 63 61 74 28 | 50 61 74 68 6e 61 6d 65 |(concat(|Pathname|
|00003a00| 46 72 6f 6d 57 44 28 72 | 65 70 6c 79 2e 76 52 65 |FromWD(r|eply.vRe|
|00003a10| 66 4e 75 6d 29 2c 72 65 | 70 6c 79 2e 66 4e 61 6d |fNum),re|ply.fNam|
|00003a20| 65 29 29 0d 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |e))....E|LSE.....|
|00003a30| 53 68 6f 77 43 61 6e 63 | 65 6c 6c 65 64 3b 0d 09 |ShowCanc|elled;..|
|00003a40| 09 45 4e 44 3b 0d 0d 0d | 28 2a 2a 20 64 6f 4e 6f |.END;...|(** doNo|
|00003a50| 72 6d 61 6c 50 47 65 74 | 20 2a 2a 2a 2a 2a 2a 2a |rmalPGet| *******|
|00003a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a90| 2a 2a 2a 2a 2a 2a 2a 29 | 0d 28 2a 0d 28 2a 09 53 |*******)|.(*.(*.S|
|00003aa0| 46 50 47 65 74 46 69 6c | 65 20 77 69 74 68 20 44 |FPGetFil|e with D|
|00003ab0| 69 61 6c 6f 67 20 48 6f | 6f 6b 20 61 6e 64 20 53 |ialog Ho|ok and S|
|00003ac0| 69 6d 70 6c 65 20 46 69 | 6c 65 20 46 69 6c 74 65 |imple Fi|le Filte|
|00003ad0| 72 2e 20 44 65 70 65 6e | 64 69 6e 67 20 6f 6e 20 |r. Depen|ding on |
|00003ae0| 74 68 65 20 76 61 6c 75 | 65 0d 28 2a 09 6f 66 20 |the valu|e.(*.of |
|00003af0| 74 68 65 20 47 6c 6f 62 | 61 6c 20 76 61 72 69 61 |the Glob|al varia|
|00003b00| 62 6c 65 20 22 74 65 78 | 74 4f 6e 6c 79 22 2c 20 |ble "tex|tOnly", |
|00003b10| 69 74 20 73 68 6f 77 73 | 20 65 69 74 68 65 72 20 |it shows| either |
|00003b20| 54 45 58 54 20 66 69 6c | 65 73 2c 20 6f 72 20 54 |TEXT fil|es, or T|
|00003b30| 45 58 54 20 61 6e 64 0d | 28 2a 09 41 50 50 4c 20 |EXT and.|(*.APPL |
|00003b40| 66 69 6c 65 73 2e 20 54 | 68 65 20 76 61 6c 75 65 |files. T|he value|
|00003b50| 20 6f 66 20 22 74 65 78 | 74 4f 6e 6c 79 22 20 69 | of "tex|tOnly" i|
|00003b60| 73 20 64 65 74 65 72 6d | 69 6e 65 64 20 62 79 20 |s determ|ined by |
|00003b70| 74 68 65 20 73 74 61 74 | 65 73 20 6f 66 20 74 77 |the stat|es of tw|
|00003b80| 6f 0d 28 2a 09 72 61 64 | 69 6f 20 62 75 74 74 6f |o.(*.rad|io butto|
|00003b90| 6e 73 20 74 68 61 74 20 | 61 72 65 20 61 64 64 65 |ns that |are adde|
|00003ba0| 64 20 74 6f 20 74 68 65 | 20 64 69 61 6c 6f 67 20 |d to the| dialog |
|00003bb0| 62 6f 78 2e 20 4f 75 72 | 20 64 6c 67 48 6f 6f 6b |box. Our| dlgHook|
|00003bc0| 20 72 6f 75 74 69 6e 65 | 20 69 73 20 75 73 65 64 | routine| is used|
|00003bd0| 0d 28 2a 09 74 6f 20 69 | 6e 69 74 69 61 6c 69 7a |.(*.to i|nitializ|
|00003be0| 65 20 74 68 65 20 72 61 | 64 69 6f 20 62 75 74 74 |e the ra|dio butt|
|00003bf0| 6f 6e 73 20 61 6e 64 20 | 68 61 6e 64 6c 65 20 68 |ons and |handle h|
|00003c00| 69 74 73 20 6f 6e 20 74 | 68 65 6d 2e 20 57 68 65 |its on t|hem. Whe|
|00003c10| 6e 20 74 68 65 72 65 20 | 69 73 20 61 0d 28 2a 09 |n there |is a.(*.|
|00003c20| 68 69 74 20 6f 6e 20 61 | 20 72 61 64 69 6f 20 62 |hit on a| radio b|
|00003c30| 75 74 74 6f 6e 2c 20 22 | 74 65 78 74 4f 6e 6c 79 |utton, "|textOnly|
|00003c40| 22 20 69 73 20 73 65 74 | 20 74 6f 20 65 69 74 68 |" is set| to eith|
|00003c50| 65 72 20 54 52 55 45 20 | 6f 72 20 46 41 4c 53 45 |er TRUE |or FALSE|
|00003c60| 2c 20 61 6e 64 20 61 0d | 28 2a 09 73 70 65 63 69 |, and a.|(*.speci|
|00003c70| 61 6c 20 63 6f 6d 6d 61 | 6e 64 20 69 73 20 73 65 |al comma|nd is se|
|00003c80| 6e 74 20 62 61 63 6b 20 | 74 6f 20 53 74 61 6e 64 |nt back |to Stand|
|00003c90| 61 72 64 20 46 69 6c 65 | 2c 20 74 65 6c 6c 69 6e |ard File|, tellin|
|00003ca0| 67 20 69 74 20 74 6f 20 | 72 65 67 65 6e 65 72 61 |g it to |regenera|
|00003cb0| 74 65 0d 28 2a 09 74 68 | 65 20 6c 69 73 74 20 6f |te.(*.th|e list o|
|00003cc0| 66 20 66 69 6c 65 20 6e | 61 6d 65 73 20 69 74 20 |f file n|ames it |
|00003cd0| 69 73 20 64 69 73 70 6c | 61 79 69 6e 67 2e 20 54 |is displ|aying. T|
|00003ce0| 68 69 73 20 73 61 6d 70 | 6c 65 20 63 6f 6e 73 69 |his samp|le consi|
|00003cf0| 73 74 73 20 6f 66 20 33 | 20 70 61 72 74 73 3a 0d |sts of 3| parts:.|
|00003d00| 28 2a 0d 28 2a 09 64 6f | 4e 6f 72 6d 61 6c 50 47 |(*.(*.do|NormalPG|
|00003d10| 65 74 20 2d 20 43 61 6c | 6c 65 64 20 62 79 20 64 |et - Cal|led by d|
|00003d20| 6f 43 6f 6d 6d 61 6e 64 | 2e 20 54 68 69 73 20 72 |oCommand|. This r|
|00003d30| 6f 75 74 69 6e 65 20 69 | 6e 69 74 69 61 6c 69 7a |outine i|nitializ|
|00003d40| 65 73 20 61 20 76 61 72 | 69 61 62 6c 65 0d 28 2a |es a var|iable.(*|
|00003d50| 09 09 09 09 66 6f 72 20 | 6f 75 72 20 66 69 6c 65 |....for |our file|
|00003d60| 20 66 69 6c 74 65 72 2c | 20 61 6e 64 20 74 68 65 | filter,| and the|
|00003d70| 6e 20 63 61 6c 6c 73 20 | 53 46 50 47 65 74 46 69 |n calls |SFPGetFi|
|00003d80| 6c 65 20 77 69 74 68 20 | 70 6f 69 6e 74 65 72 73 |le with |pointers|
|00003d90| 20 74 6f 0d 28 2a 09 09 | 09 09 74 77 6f 20 6f 74 | to.(*..|..two ot|
|00003da0| 68 65 72 20 72 6f 75 74 | 69 6e 65 73 20 61 6e 64 |her rout|ines and|
|00003db0| 20 61 20 72 65 73 6f 75 | 72 63 65 20 6e 75 6d 62 | a resou|rce numb|
|00003dc0| 65 72 20 66 6f 72 20 61 | 20 73 70 65 63 69 61 6c |er for a| special|
|00003dd0| 20 64 69 61 6c 6f 67 20 | 62 6f 78 0d 28 2a 09 09 | dialog |box.(*..|
|00003de0| 09 09 77 69 74 68 20 65 | 78 74 72 61 20 69 74 65 |..with e|xtra ite|
|00003df0| 6d 73 20 69 6e 20 69 74 | 2e 0d 28 2a 0d 28 2a 09 |ms in it|..(*.(*.|
|00003e00| 53 69 6d 70 6c 65 46 69 | 6c 65 46 69 6c 74 65 72 |SimpleFi|leFilter|
|00003e10| 20 2d 20 53 70 65 63 69 | 66 69 65 64 20 69 6e 20 | - Speci|fied in |
|00003e20| 6f 75 72 20 53 46 50 47 | 65 74 46 69 6c 65 20 63 |our SFPG|etFile c|
|00003e30| 61 6c 6c 20 74 6f 20 62 | 65 20 63 61 6c 6c 65 64 |all to b|e called|
|00003e40| 20 74 6f 0d 28 2a 09 09 | 09 09 73 70 65 63 69 66 | to.(*..|..specif|
|00003e50| 79 20 77 68 65 74 68 65 | 72 20 6f 72 20 6e 6f 74 |y whethe|r or not|
|00003e60| 20 61 20 66 69 6c 65 20 | 73 68 6f 75 6c 64 20 62 | a file |should b|
|00003e70| 65 20 64 69 73 70 6c 61 | 79 65 64 2e 20 41 6c 6c |e displa|yed. All|
|00003e80| 20 54 45 58 54 20 66 69 | 6c 65 73 0d 28 2a 09 09 | TEXT fi|les.(*..|
|00003e90| 09 09 61 72 65 20 64 69 | 73 70 6c 61 79 65 64 2e |..are di|splayed.|
|00003ea0| 20 49 66 20 74 68 65 20 | 67 6c 6f 62 61 6c 20 76 | If the |global v|
|00003eb0| 61 72 69 61 62 6c 65 20 | 27 74 65 78 74 4f 6e 6c |ariable |'textOnl|
|00003ec0| 79 27 20 69 73 20 46 41 | 4c 53 45 2c 20 74 68 65 |y' is FA|LSE, the|
|00003ed0| 6e 0d 28 2a 09 09 09 09 | 61 70 70 6c 69 63 61 74 |n.(*....|applicat|
|00003ee0| 69 6f 6e 73 20 28 41 50 | 50 4c 20 66 69 6c 65 73 |ions (AP|PL files|
|00003ef0| 29 20 61 72 65 20 61 6c | 73 6f 20 64 69 73 70 6c |) are al|so displ|
|00003f00| 61 79 65 64 2e 20 4e 4f | 20 6f 74 68 65 72 20 66 |ayed. NO| other f|
|00003f10| 69 6c 65 73 20 61 72 65 | 0d 28 2a 09 09 09 09 64 |iles are|.(*....d|
|00003f20| 69 73 70 6c 61 79 65 64 | 2e 0d 28 2a 0d 28 2a 09 |isplayed|..(*.(*.|
|00003f30| 4d 79 53 46 47 65 74 48 | 6f 6f 6b 20 2d 20 41 20 |MySFGetH|ook - A |
|00003f40| 72 6f 75 74 69 6e 65 20 | 74 68 61 74 20 69 73 20 |routine |that is |
|00003f50| 63 61 6c 6c 65 64 20 74 | 6f 20 68 61 6e 64 6c 65 |called t|o handle|
|00003f60| 20 68 69 74 73 20 6f 6e | 20 74 68 65 20 6e 6f 6e | hits on| the non|
|00003f70| 2d 73 74 61 6e 64 61 72 | 64 0d 28 2a 09 09 09 09 |-standar|d.(*....|
|00003f80| 69 74 65 6d 73 20 69 6e | 20 6f 75 72 20 64 69 61 |items in| our dia|
|00003f90| 6c 6f 67 20 62 6f 78 2e | 20 54 68 65 73 65 20 69 |log box.| These i|
|00003fa0| 74 65 6d 73 20 61 72 65 | 3a 0d 28 2a 09 09 09 09 |tems are|:.(*....|
|00003fb0| 09 09 2d 20 32 20 72 61 | 64 69 6f 20 62 75 74 74 |..- 2 ra|dio butt|
|00003fc0| 6f 6e 73 20 74 68 61 74 | 20 61 66 66 65 63 74 20 |ons that| affect |
|00003fd0| 74 68 65 20 73 65 74 74 | 69 6e 67 20 6f 66 20 74 |the sett|ing of t|
|00003fe0| 68 65 20 27 74 65 78 74 | 4f 6e 6c 79 27 0d 28 2a |he 'text|Only'.(*|
|00003ff0| 09 09 09 09 09 09 09 76 | 61 72 69 61 62 6c 65 2c |.......v|ariable,|
|00004000| 0d 28 2a 09 09 09 09 09 | 09 2d 20 61 20 51 75 69 |.(*.....|.- a Qui|
|00004010| 74 20 62 75 74 74 6f 6e | 20 74 68 61 74 20 63 61 |t button| that ca|
|00004020| 75 73 65 73 20 74 68 65 | 20 47 65 74 46 69 6c 65 |uses the| GetFile|
|00004030| 20 64 69 61 6c 6f 67 20 | 62 6f 78 20 74 6f 20 62 | dialog |box to b|
|00004040| 65 20 70 75 74 0d 28 2a | 09 09 09 09 09 09 09 61 |e put.(*|.......a|
|00004050| 77 61 79 20 28 6c 69 6b | 65 20 70 72 65 73 73 69 |way (lik|e pressi|
|00004060| 6e 67 20 43 61 6e 63 65 | 6c 29 2c 20 62 75 74 20 |ng Cance|l), but |
|00004070| 61 6c 73 6f 20 63 61 75 | 73 65 73 20 74 68 69 73 |also cau|ses this|
|00004080| 20 64 65 6d 6f 20 74 6f | 20 62 65 0d 28 2a 09 09 | demo to| be.(*..|
|00004090| 09 09 09 09 09 65 78 69 | 74 74 65 64 2e 0d 28 2a |.....exi|tted..(*|
|000040a0| 0d 28 2a 09 09 09 09 54 | 68 65 20 64 6c 67 48 6f |.(*....T|he dlgHo|
|000040b0| 6f 6b 20 69 73 20 61 6c | 73 6f 20 75 73 65 64 20 |ok is al|so used |
|000040c0| 74 6f 20 70 65 72 66 6f | 72 6d 20 73 6f 6d 65 20 |to perfo|rm some |
|000040d0| 73 70 65 63 69 61 6c 20 | 69 6e 69 74 69 61 6c 69 |special |initiali|
|000040e0| 7a 61 74 69 6f 6e 0d 28 | 2a 09 09 09 09 6f 6e 20 |zation.(|*....on |
|000040f0| 74 68 65 20 69 74 65 6d | 73 20 69 6e 20 74 68 65 |the item|s in the|
|00004100| 20 64 69 61 6c 6f 67 20 | 62 6f 78 2e 20 53 74 61 | dialog |box. Sta|
|00004110| 6e 64 61 72 64 20 66 69 | 6c 65 20 64 6f 65 73 20 |ndard fi|le does |
|00004120| 74 68 69 73 20 62 79 20 | 63 61 6c 6c 69 6e 67 0d |this by |calling.|
|00004130| 28 2a 09 09 09 09 74 68 | 69 73 20 72 6f 75 74 69 |(*....th|is routi|
|00004140| 6e 65 20 77 69 74 68 20 | 61 20 62 6f 67 75 73 20 |ne with |a bogus |
|00004150| 27 69 74 65 6d 27 20 6e | 75 6d 62 65 72 20 6f 66 |'item' n|umber of|
|00004160| 20 2d 31 2e 20 57 68 65 | 6e 20 77 65 20 67 65 74 | -1. Whe|n we get|
|00004170| 20 74 68 69 73 0d 28 2a | 09 09 09 09 6e 75 6d 62 | this.(*|....numb|
|00004180| 65 72 2c 20 77 65 20 69 | 6e 69 74 69 61 6c 69 7a |er, we i|nitializ|
|00004190| 65 20 6f 75 72 20 72 61 | 64 69 6f 20 62 75 74 74 |e our ra|dio butt|
|000041a0| 6f 6e 73 2c 20 61 6e 64 | 20 63 68 61 6e 67 65 20 |ons, and| change |
|000041b0| 74 68 65 20 74 65 78 74 | 20 69 6e 20 74 68 65 0d |the text| in the.|
|000041c0| 28 2a 09 09 09 09 4f 70 | 65 6e 20 62 75 74 74 6f |(*....Op|en butto|
|000041d0| 6e 2e 0d 28 2a 0d 28 2a | 09 09 09 09 54 68 65 20 |n..(*.(*|....The |
|000041e0| 72 61 64 69 6f 20 62 75 | 74 74 6f 6e 73 20 61 72 |radio bu|ttons ar|
|000041f0| 65 20 75 73 65 64 20 74 | 6f 20 64 65 74 65 72 6d |e used t|o determ|
|00004200| 69 6e 65 20 77 68 61 74 | 20 66 69 6c 65 73 20 77 |ine what| files w|
|00004210| 69 6c 6c 20 61 70 70 65 | 61 72 20 69 6e 0d 28 2a |ill appe|ar in.(*|
|00004220| 09 09 09 09 74 68 65 20 | 66 69 6c 65 73 20 6c 69 |....the |files li|
|00004230| 73 74 2e 20 49 74 20 64 | 6f 65 73 20 74 68 69 73 |st. It d|oes this|
|00004240| 20 62 79 20 61 70 70 6f | 72 70 72 69 61 74 65 6c | by appo|rpriatel|
|00004250| 79 20 73 65 74 74 69 6e | 67 20 74 68 65 20 27 74 |y settin|g the 't|
|00004260| 65 78 74 4f 6e 6c 79 27 | 0d 28 2a 09 09 09 09 76 |extOnly'|.(*....v|
|00004270| 61 72 69 61 62 6c 65 20 | 66 6f 72 20 53 69 6d 70 |ariable |for Simp|
|00004280| 6c 65 46 69 6c 65 46 69 | 6c 74 65 72 2c 20 61 6e |leFileFi|lter, an|
|00004290| 64 20 74 68 65 6e 20 74 | 65 6c 6c 69 6e 67 20 53 |d then t|elling S|
|000042a0| 74 61 6e 64 61 72 64 20 | 46 69 6c 65 20 74 68 61 |tandard |File tha|
|000042b0| 74 0d 28 2a 09 09 09 09 | 74 68 65 20 66 69 6c 65 |t.(*....|the file|
|000042c0| 20 6c 69 73 74 20 6e 65 | 65 64 73 20 74 6f 20 62 | list ne|eds to b|
|000042d0| 65 20 72 65 67 65 6e 65 | 72 61 74 65 64 20 62 79 |e regene|rated by|
|000042e0| 20 70 61 73 73 69 6e 67 | 20 62 61 63 6b 20 31 30 | passing| back 10|
|000042f0| 31 20 61 73 20 74 68 65 | 0d 28 2a 09 09 09 09 74 |1 as the|.(*....t|
|00004300| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 72 65 73 75 |he funct|ion resu|
|00004310| 6c 74 2e 0d 28 2a 0d 28 | 2a 09 09 09 09 54 68 65 |lt..(*.(|*....The|
|00004320| 20 51 75 69 74 20 62 75 | 74 74 6f 6e 20 63 61 75 | Quit bu|tton cau|
|00004330| 73 65 73 20 74 68 65 20 | 64 69 61 6c 6f 67 20 62 |ses the |dialog b|
|00004340| 6f 78 20 74 6f 20 67 6f | 20 61 77 61 79 20 62 79 |ox to go| away by|
|00004350| 20 72 65 74 75 72 6e 69 | 6e 67 20 74 68 65 0d 28 | returni|ng the.(|
|00004360| 2a 09 09 09 09 27 67 65 | 74 43 61 6e 63 65 6c 27 |*....'ge|tCancel'|
|00004370| 20 74 6f 20 53 74 61 6e | 64 61 72 64 20 46 69 6c | to Stan|dard Fil|
|00004380| 65 2e 20 49 74 20 61 6c | 73 6f 20 73 65 74 73 20 |e. It al|so sets |
|00004390| 74 68 65 20 27 64 6f 6e | 65 46 6c 61 67 27 20 76 |the 'don|eFlag' v|
|000043a0| 61 72 69 61 62 6c 65 0d | 28 2a 09 09 09 09 74 6f |ariable.|(*....to|
|000043b0| 20 54 52 55 45 20 66 6f | 72 20 6f 75 72 20 4d 61 | TRUE fo|r our Ma|
|000043c0| 69 6e 45 76 65 6e 74 4c | 6f 6f 70 20 74 6f 20 6e |inEventL|oop to n|
|000043d0| 6f 74 69 63 65 2e 0d 28 | 2a 0d 28 2a 2a 2a 2a 2a |otice..(|*.(*****|
|000043e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 29 0d 0d 09 46 55 4e |********|*)...FUN|
|00004430| 43 54 49 4f 4e 20 4d 79 | 53 46 47 65 74 48 6f 6f |CTION My|SFGetHoo|
|00004440| 6b 28 4d 79 53 46 69 74 | 65 6d 3a 20 69 6e 74 65 |k(MySFit|em: inte|
|00004450| 67 65 72 3b 20 74 68 65 | 44 69 61 6c 6f 67 3a 20 |ger; the|Dialog: |
|00004460| 44 69 61 6c 6f 67 50 74 | 72 29 3a 20 69 6e 74 65 |DialogPt|r): inte|
|00004470| 67 65 72 3b 0d 0d 09 09 | 43 4f 4e 53 54 0d 09 09 |ger;....|CONST...|
|00004480| 09 74 65 78 74 42 75 74 | 74 6f 6e 09 09 09 3d 20 |.textBut|ton...= |
|00004490| 31 31 3b 20 20 7b 44 49 | 54 4c 20 69 74 65 6d 20 |11;  {DI|TL item |
|000044a0| 6e 75 6d 62 65 72 20 6f | 66 20 74 65 78 74 42 75 |number o|f textBu|
|000044b0| 74 74 6f 6e 7d 0d 09 09 | 09 74 65 78 74 41 70 70 |tton}...|.textApp|
|000044c0| 42 75 74 74 6f 6e 09 09 | 3d 20 31 32 3b 20 20 7b |Button..|= 12;  {|
|000044d0| 44 49 54 4c 20 69 74 65 | 6d 20 6e 75 6d 62 65 72 |DITL ite|m number|
|000044e0| 20 6f 66 20 74 65 78 74 | 41 70 70 42 75 74 74 6f | of text|AppButto|
|000044f0| 6e 7d 0d 09 09 09 71 75 | 69 74 42 75 74 74 6f 6e |n}....qu|itButton|
|00004500| 09 09 09 3d 20 31 33 3b | 20 20 7b 44 49 54 4c 20 |...= 13;|  {DITL |
|00004510| 69 74 65 6d 20 6e 75 6d | 62 65 72 20 6f 66 20 71 |item num|ber of q|
|00004520| 75 69 74 42 75 74 74 6f | 6e 7d 0d 0d 09 09 56 41 |uitButto|n}....VA|
|00004530| 52 0d 09 09 09 69 74 65 | 6d 54 6f 43 68 61 6e 67 |R....ite|mToChang|
|00004540| 65 09 3a 20 48 61 6e 64 | 6c 65 3b 09 09 7b 6e 65 |e.: Hand|le;..{ne|
|00004550| 65 64 65 64 20 66 6f 72 | 20 47 65 74 44 49 74 65 |eded for| GetDIte|
|00004560| 6d 20 61 6e 64 20 53 65 | 74 43 74 6c 56 61 6c 75 |m and Se|tCtlValu|
|00004570| 65 7d 0d 09 09 09 69 74 | 65 6d 42 6f 78 09 09 09 |e}....it|emBox...|
|00004580| 09 3a 20 52 65 63 74 3b | 09 09 09 7b 6e 65 65 64 |.: Rect;|...{need|
|00004590| 65 64 20 66 6f 72 20 47 | 65 74 44 49 74 65 6d 7d |ed for G|etDItem}|
|000045a0| 0d 09 09 09 69 74 65 6d | 54 79 70 65 09 09 09 3a |....item|Type...:|
|000045b0| 20 69 6e 74 65 67 65 72 | 3b 09 7b 6e 65 65 64 65 | integer|;.{neede|
|000045c0| 64 20 66 6f 72 20 47 65 | 74 44 49 74 65 6d 7d 0d |d for Ge|tDItem}.|
|000045d0| 09 09 09 62 75 74 74 6f | 6e 54 69 74 6c 65 09 09 |...butto|nTitle..|
|000045e0| 3a 20 53 74 72 32 35 35 | 3b 09 09 7b 6e 65 65 64 |: Str255|;..{need|
|000045f0| 65 64 20 66 6f 72 20 47 | 65 74 49 6e 64 53 74 72 |ed for G|etIndStr|
|00004600| 69 6e 67 7d 0d 0d 09 09 | 42 45 47 49 4e 0d 09 09 |ing}....|BEGIN...|
|00004610| 7b 20 4d 79 53 46 47 65 | 74 48 6f 6f 6b 20 69 73 |{ MySFGe|tHook is|
|00004620| 20 61 20 66 75 6e 63 74 | 69 6f 6e 20 74 68 61 74 | a funct|ion that|
|00004630| 20 72 65 71 75 69 72 65 | 73 20 74 68 61 74 20 61 | require|s that a|
|00004640| 6e 20 69 74 65 6d 20 6e | 75 6d 62 65 72 20 62 65 |n item n|umber be|
|00004650| 20 70 61 73 73 65 64 09 | 09 7d 0d 09 09 7b 20 62 | passed.|.}...{ b|
|00004660| 61 63 6b 20 66 72 6f 6d | 20 69 74 2e 20 4e 6f 72 |ack from| it. Nor|
|00004670| 6d 61 6c 6c 79 2c 20 74 | 68 69 73 20 69 73 20 74 |mally, t|his is t|
|00004680| 68 65 20 73 61 6d 65 20 | 69 74 65 6d 20 6e 75 6d |he same |item num|
|00004690| 62 65 72 20 74 68 61 74 | 20 77 61 73 20 70 61 73 |ber that| was pas|
|000046a0| 73 65 64 09 09 7d 0d 09 | 09 7b 20 74 6f 20 75 73 |sed..}..|.{ to us|
|000046b0| 2c 20 62 75 74 20 6e 6f | 74 20 6e 65 63 65 73 73 |, but no|t necess|
|000046c0| 61 72 69 6c 79 2e 20 46 | 6f 72 20 69 6e 73 74 61 |arily. F|or insta|
|000046d0| 6e 63 65 2c 20 63 6c 69 | 63 6b 73 20 6f 6e 20 74 |nce, cli|cks on t|
|000046e0| 68 65 20 51 75 69 74 20 | 62 75 74 74 6f 6e 09 09 |he Quit |button..|
|000046f0| 09 7d 0d 09 09 7b 20 67 | 65 74 20 74 72 61 6e 73 |.}...{ g|et trans|
|00004700| 6c 61 74 65 64 20 69 6e | 74 6f 20 63 6c 69 63 6b |lated in|to click|
|00004710| 73 20 6f 6e 20 74 68 65 | 20 43 61 6e 63 65 6c 20 |s on the| Cancel |
|00004720| 62 75 74 74 6f 6e 2e 20 | 57 65 20 63 6f 75 6c 64 |button. |We could|
|00004730| 20 61 6c 73 6f 20 72 65 | 74 75 72 6e 09 09 7d 0d | also re|turn..}.|
|00004740| 09 09 7b 20 76 61 6c 75 | 65 73 20 74 68 61 74 20 |..{ valu|es that |
|00004750| 63 61 75 73 65 20 74 68 | 65 20 66 69 6c 65 20 6e |cause th|e file n|
|00004760| 61 6d 65 73 20 74 6f 20 | 62 65 20 72 65 64 72 61 |ames to |be redra|
|00004770| 77 6e 20 6f 72 20 68 61 | 76 65 20 74 68 65 20 77 |wn or ha|ve the w|
|00004780| 68 6f 6c 65 20 65 76 65 | 6e 74 09 7d 0d 09 09 7b |hole eve|nt.}...{|
|00004790| 20 69 67 6e 6f 72 65 64 | 2e 20 48 6f 77 65 76 65 | ignored|. Howeve|
|000047a0| 72 2c 20 62 79 20 64 65 | 66 61 75 6c 74 2c 20 77 |r, by de|fault, w|
|000047b0| 65 27 6c 6c 20 72 65 74 | 75 72 6e 20 77 68 61 74 |e'll ret|urn what|
|000047c0| 20 77 61 73 20 73 65 6e | 74 20 74 6f 20 75 73 2e | was sen|t to us.|
|000047d0| 09 09 09 09 09 7d 0d 0d | 09 09 09 4d 79 53 46 47 |.....}..|...MySFG|
|000047e0| 65 74 48 6f 6f 6b 20 3a | 3d 20 4d 79 53 46 69 74 |etHook :|= MySFit|
|000047f0| 65 6d 3b 0d 09 09 09 43 | 41 53 45 20 4d 79 53 46 |em;....C|ASE MySF|
|00004800| 69 74 65 6d 20 4f 46 0d | 0d 09 09 09 09 66 69 72 |item OF.|.....fir|
|00004810| 73 74 54 69 6d 65 3a 20 | 42 45 47 49 4e 0d 09 09 |stTime: |BEGIN...|
|00004820| 09 09 7b 20 42 65 66 6f | 72 65 20 74 68 65 20 64 |..{ Befo|re the d|
|00004830| 69 61 6c 6f 67 20 69 73 | 20 64 72 61 77 6e 2c 20 |ialog is| drawn, |
|00004840| 6f 75 72 20 68 6f 6f 6b | 20 67 65 74 73 20 63 61 |our hook| gets ca|
|00004850| 6c 6c 65 64 20 77 69 74 | 68 20 61 20 2d 31 2e 20 |lled wit|h a -1. |
|00004860| 7d 0d 09 09 09 09 7b 20 | 54 68 69 73 20 67 69 76 |}.....{ |This giv|
|00004870| 65 73 20 75 73 20 74 68 | 65 20 6f 70 70 6f 72 74 |es us th|e opport|
|00004880| 75 6e 69 74 79 20 74 6f | 20 63 68 61 6e 67 65 20 |unity to| change |
|00004890| 74 68 69 6e 67 73 20 6c | 69 6b 65 20 42 75 74 74 |things l|ike Butt|
|000048a0| 6f 6e 20 74 69 74 6c 65 | 73 2c 20 65 74 63 2e 20 |on title|s, etc. |
|000048b0| 7d 0d 0d 09 09 09 09 7b | 20 53 65 74 20 74 68 65 |}......{| Set the|
|000048c0| 20 74 65 78 74 41 70 70 | 42 75 74 74 6f 6e 20 74 | textApp|Button t|
|000048d0| 6f 20 4f 46 46 2c 20 74 | 68 65 20 74 65 78 74 42 |o OFF, t|he textB|
|000048e0| 75 74 74 6f 6e 20 74 6f | 20 4f 4e 20 7d 0d 0d 09 |utton to| ON }...|
|000048f0| 09 09 09 09 53 65 74 52 | 61 64 69 6f 42 75 74 74 |....SetR|adioButt|
|00004900| 6f 6e 28 74 68 65 44 69 | 61 6c 6f 67 2c 74 65 78 |on(theDi|alog,tex|
|00004910| 74 41 70 70 42 75 74 74 | 6f 6e 2c 42 54 4e 4f 46 |tAppButt|on,BTNOF|
|00004920| 46 29 3b 0d 09 09 09 09 | 09 53 65 74 52 61 64 69 |F);.....|.SetRadi|
|00004930| 6f 42 75 74 74 6f 6e 28 | 74 68 65 44 69 61 6c 6f |oButton(|theDialo|
|00004940| 67 2c 74 65 78 74 42 75 | 74 74 6f 6e 2c 42 54 4e |g,textBu|tton,BTN|
|00004950| 4f 4e 29 3b 0d 0d 09 09 | 09 09 7b 20 47 65 74 20 |ON);....|..{ Get |
|00004960| 74 68 65 20 42 75 74 74 | 6f 6e 20 74 69 74 6c 65 |the Butt|on title|
|00004970| 20 66 72 6f 6d 20 74 68 | 65 20 72 65 73 6f 75 72 | from th|e resour|
|00004980| 63 65 20 66 6f 72 6b 2e | 20 49 66 20 77 65 20 63 |ce fork.| If we c|
|00004990| 61 6e 27 74 20 67 65 74 | 20 74 68 65 20 7d 0d 09 |an't get| the }..|
|000049a0| 09 09 09 7b 20 72 65 73 | 6f 75 72 63 65 2c 20 77 |...{ res|ource, w|
|000049b0| 65 20 6a 75 73 74 20 77 | 6f 6e 27 74 20 63 68 61 |e just w|on't cha|
|000049c0| 6e 67 65 20 74 68 65 20 | 6f 70 65 6e 20 42 75 74 |nge the |open But|
|000049d0| 74 6f 6e 27 73 20 74 69 | 74 6c 65 7d 0d 0d 09 09 |ton's ti|tle}....|
|000049e0| 09 09 09 47 65 74 49 6e | 64 53 74 72 69 6e 67 28 |...GetIn|dString(|
|000049f0| 62 75 74 74 6f 6e 54 69 | 74 6c 65 2c 72 53 74 72 |buttonTi|tle,rStr|
|00004a00| 4d 69 73 63 2c 31 29 3b | 0d 09 09 09 09 09 49 46 |Misc,1);|......IF|
|00004a10| 20 62 75 74 74 6f 6e 54 | 69 74 6c 65 20 3c 3e 20 | buttonT|itle <> |
|00004a20| 27 27 20 54 48 45 4e 20 | 42 45 47 49 4e 20 7b 20 |'' THEN |BEGIN { |
|00004a30| 69 66 20 77 65 20 72 65 | 61 6c 6c 79 20 67 6f 74 |if we re|ally got|
|00004a40| 20 74 68 65 20 72 65 73 | 6f 75 72 63 65 7d 0d 09 | the res|ource}..|
|00004a50| 09 09 09 09 09 47 65 74 | 44 49 74 65 6d 28 74 68 |.....Get|DItem(th|
|00004a60| 65 44 69 61 6c 6f 67 2c | 67 65 74 4f 70 65 6e 2c |eDialog,|getOpen,|
|00004a70| 69 74 65 6d 54 79 70 65 | 2c 69 74 65 6d 54 6f 43 |itemType|,itemToC|
|00004a80| 68 61 6e 67 65 2c 69 74 | 65 6d 42 6f 78 29 3b 0d |hange,it|emBox);.|
|00004a90| 09 09 09 09 09 09 53 65 | 74 43 54 69 74 6c 65 28 |......Se|tCTitle(|
|00004aa0| 43 6f 6e 74 72 6f 6c 48 | 61 6e 64 6c 65 28 69 74 |ControlH|andle(it|
|00004ab0| 65 6d 54 6f 43 68 61 6e | 67 65 29 2c 62 75 74 74 |emToChan|ge),butt|
|00004ac0| 6f 6e 54 69 74 6c 65 29 | 3b 0d 09 09 09 09 09 45 |onTitle)|;......E|
|00004ad0| 4e 44 3b 0d 09 09 09 09 | 45 4e 44 3b 20 7b 66 69 |ND;.....|END; {fi|
|00004ae0| 72 73 74 54 69 6d 65 7d | 0d 0d 09 09 09 09 74 65 |rstTime}|......te|
|00004af0| 78 74 42 75 74 74 6f 6e | 3a 20 42 45 47 49 4e 0d |xtButton|: BEGIN.|
|00004b00| 09 09 09 09 7b 20 54 75 | 72 6e 20 74 68 65 20 74 |....{ Tu|rn the t|
|00004b10| 65 78 74 41 70 70 42 75 | 74 74 6f 6e 20 4f 46 46 |extAppBu|tton OFF|
|00004b20| 2c 20 74 68 65 20 74 65 | 78 74 42 75 74 74 6f 6e |, the te|xtButton|
|00004b30| 20 4f 4e 20 61 6e 64 20 | 72 65 64 72 61 77 20 74 | ON and |redraw t|
|00004b40| 68 65 20 6c 69 73 74 7d | 0d 09 09 09 09 09 49 46 |he list}|......IF|
|00004b50| 20 4e 4f 54 20 74 65 78 | 74 4f 6e 6c 79 20 54 48 | NOT tex|tOnly TH|
|00004b60| 45 4e 20 42 45 47 49 4e | 0d 09 09 09 09 09 09 53 |EN BEGIN|.......S|
|00004b70| 65 74 52 61 64 69 6f 42 | 75 74 74 6f 6e 28 74 68 |etRadioB|utton(th|
|00004b80| 65 44 69 61 6c 6f 67 2c | 74 65 78 74 41 70 70 42 |eDialog,|textAppB|
|00004b90| 75 74 74 6f 6e 2c 42 54 | 4e 4f 46 46 29 3b 0d 09 |utton,BT|NOFF);..|
|00004ba0| 09 09 09 09 09 53 65 74 | 52 61 64 69 6f 42 75 74 |.....Set|RadioBut|
|00004bb0| 74 6f 6e 28 74 68 65 44 | 69 61 6c 6f 67 2c 74 65 |ton(theD|ialog,te|
|00004bc0| 78 74 42 75 74 74 6f 6e | 2c 42 54 4e 4f 4e 29 3b |xtButton|,BTNON);|
|00004bd0| 0d 09 09 09 09 09 09 74 | 65 78 74 4f 6e 6c 79 20 |.......t|extOnly |
|00004be0| 3a 3d 20 54 52 55 45 3b | 0d 09 09 09 09 09 09 4d |:= TRUE;|.......M|
|00004bf0| 79 53 46 47 65 74 48 6f | 6f 6b 20 3a 3d 20 72 65 |ySFGetHo|ok := re|
|00004c00| 44 72 61 77 4c 69 73 74 | 3b 20 7b 77 65 20 6d 75 |DrawList|; {we mu|
|00004c10| 73 74 20 74 65 6c 6c 20 | 53 46 20 74 6f 20 72 65 |st tell |SF to re|
|00004c20| 64 72 61 77 20 74 68 65 | 20 6c 69 73 74 7d 0d 09 |draw the| list}..|
|00004c30| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 45 4e 44 |....END;|.....END|
|00004c40| 3b 0d 0d 09 09 09 09 74 | 65 78 74 41 70 70 42 75 |;......t|extAppBu|
|00004c50| 74 74 6f 6e 3a 20 42 45 | 47 49 4e 0d 09 09 09 09 |tton: BE|GIN.....|
|00004c60| 7b 20 54 75 72 6e 20 74 | 68 65 20 74 65 78 74 42 |{ Turn t|he textB|
|00004c70| 75 74 74 6f 6e 20 4f 46 | 46 2c 20 74 68 65 20 74 |utton OF|F, the t|
|00004c80| 65 78 74 41 70 70 42 75 | 74 74 6f 6e 20 4f 4e 20 |extAppBu|tton ON |
|00004c90| 61 6e 64 20 72 65 64 72 | 61 77 20 74 68 65 20 6c |and redr|aw the l|
|00004ca0| 69 73 74 7d 0d 09 09 09 | 09 09 49 46 20 74 65 78 |ist}....|..IF tex|
|00004cb0| 74 4f 6e 6c 79 20 54 48 | 45 4e 20 42 45 47 49 4e |tOnly TH|EN BEGIN|
|00004cc0| 0d 09 09 09 09 09 09 53 | 65 74 52 61 64 69 6f 42 |.......S|etRadioB|
|00004cd0| 75 74 74 6f 6e 28 74 68 | 65 44 69 61 6c 6f 67 2c |utton(th|eDialog,|
|00004ce0| 74 65 78 74 42 75 74 74 | 6f 6e 2c 42 54 4e 4f 46 |textButt|on,BTNOF|
|00004cf0| 46 29 3b 0d 09 09 09 09 | 09 09 53 65 74 52 61 64 |F);.....|..SetRad|
|00004d00| 69 6f 42 75 74 74 6f 6e | 28 74 68 65 44 69 61 6c |ioButton|(theDial|
|00004d10| 6f 67 2c 74 65 78 74 41 | 70 70 42 75 74 74 6f 6e |og,textA|ppButton|
|00004d20| 2c 42 54 4e 4f 4e 29 3b | 0d 09 09 09 09 09 09 74 |,BTNON);|.......t|
|00004d30| 65 78 74 4f 6e 6c 79 20 | 3a 3d 20 46 41 4c 53 45 |extOnly |:= FALSE|
|00004d40| 3b 0d 09 09 09 09 09 09 | 4d 79 53 46 47 65 74 48 |;.......|MySFGetH|
|00004d50| 6f 6f 6b 20 3a 3d 20 72 | 65 44 72 61 77 4c 69 73 |ook := r|eDrawLis|
|00004d60| 74 3b 20 7b 77 65 20 6d | 75 73 74 20 74 65 6c 6c |t; {we m|ust tell|
|00004d70| 20 53 46 20 74 6f 20 72 | 65 64 72 61 77 20 74 68 | SF to r|edraw th|
|00004d80| 65 20 6c 69 73 74 7d 0d | 09 09 09 09 09 45 4e 44 |e list}.|.....END|
|00004d90| 3b 0d 09 09 09 09 45 4e | 44 3b 0d 0d 09 09 09 09 |;.....EN|D;......|
|00004da0| 71 75 69 74 42 75 74 74 | 6f 6e 3a 20 42 45 47 49 |quitButt|on: BEGI|
|00004db0| 4e 0d 09 09 09 09 7b 20 | 41 6c 69 61 73 20 63 6c |N.....{ |Alias cl|
|00004dc0| 69 63 6b 73 20 6f 6e 20 | 74 68 65 20 51 75 69 74 |icks on |the Quit|
|00004dd0| 20 62 75 74 74 6f 6e 20 | 74 6f 20 63 6c 69 63 6b | button |to click|
|00004de0| 73 20 6f 6e 20 74 68 65 | 20 43 61 6e 63 65 6c 20 |s on the| Cancel |
|00004df0| 42 75 74 74 6f 6e 2e 20 | 41 6c 73 6f 2c 20 7d 0d |Button. |Also, }.|
|00004e00| 09 09 09 09 7b 20 73 65 | 74 20 27 64 6f 6e 65 46 |....{ se|t 'doneF|
|00004e10| 6c 61 67 27 20 74 6f 20 | 54 52 55 45 20 73 6f 20 |lag' to |TRUE so |
|00004e20| 74 68 61 74 20 74 68 65 | 20 4d 61 69 6e 45 76 65 |that the| MainEve|
|00004e30| 6e 74 4c 6f 6f 70 20 74 | 65 72 6d 69 6e 61 74 65 |ntLoop t|erminate|
|00004e40| 73 2e 20 7d 0d 09 09 09 | 09 09 4d 79 53 46 47 65 |s. }....|..MySFGe|
|00004e50| 74 48 6f 6f 6b 20 3a 3d | 20 67 65 74 43 61 6e 63 |tHook :=| getCanc|
|00004e60| 65 6c 3b 20 7b 50 61 73 | 73 20 53 46 20 62 61 63 |el; {Pas|s SF bac|
|00004e70| 6b 20 61 20 27 63 61 6e | 63 65 6c 20 42 75 74 74 |k a 'can|cel Butt|
|00004e80| 6f 6e 27 7d 0d 09 09 09 | 09 09 64 6f 6e 65 46 6c |on'}....|..doneFl|
|00004e90| 61 67 20 3a 3d 20 54 52 | 55 45 3b 0d 09 09 09 09 |ag := TR|UE;.....|
|00004ea0| 45 4e 44 3b 0d 09 09 09 | 45 4e 44 3b 0d 09 09 45 |END;....|END;...E|
|00004eb0| 4e 44 3b 0d 0d 0d 09 46 | 55 4e 43 54 49 4f 4e 20 |ND;....F|UNCTION |
|00004ec0| 53 69 6d 70 6c 65 46 69 | 6c 65 46 69 6c 74 65 72 |SimpleFi|leFilter|
|00004ed0| 28 70 3a 20 50 61 72 6d | 42 6c 6b 50 74 72 29 3a |(p: Parm|BlkPtr):|
|00004ee0| 20 42 4f 4f 4c 45 41 4e | 3b 0d 0d 09 09 42 45 47 | BOOLEAN|;....BEG|
|00004ef0| 49 4e 0d 09 09 09 53 69 | 6d 70 6c 65 46 69 6c 65 |IN....Si|mpleFile|
|00004f00| 46 69 6c 74 65 72 20 3a | 3d 20 54 52 55 45 3b 09 |Filter :|= TRUE;.|
|00004f10| 20 20 20 7b 44 6f 6e 27 | 74 20 73 68 6f 77 20 69 |   {Don'|t show i|
|00004f20| 74 20 2d 2d 20 64 65 66 | 61 75 6c 74 7d 0d 0d 09 |t -- def|ault}...|
|00004f30| 09 7b 20 49 66 20 77 65 | 20 68 61 76 65 20 61 20 |.{ If we| have a |
|00004f40| 27 54 45 58 54 27 20 66 | 69 6c 65 2c 20 6f 72 20 |'TEXT' f|ile, or |
|00004f50| 77 65 20 68 61 76 65 20 | 61 6e 20 27 41 50 50 4c |we have |an 'APPL|
|00004f60| 27 20 66 69 6c 65 20 61 | 6e 64 20 27 74 65 78 74 |' file a|nd 'text|
|00004f70| 4f 6e 6c 79 27 20 69 73 | 20 7d 0d 09 09 7b 20 46 |Only' is| }...{ F|
|00004f80| 41 4c 53 45 2c 20 74 68 | 65 6e 20 73 69 67 6e 69 |ALSE, th|en signi|
|00004f90| 66 79 20 74 68 61 74 20 | 77 65 20 73 68 6f 75 6c |fy that |we shoul|
|00004fa0| 64 20 73 68 6f 77 20 74 | 68 65 20 66 69 6c 65 20 |d show t|he file |
|00004fb0| 62 79 20 72 65 74 75 72 | 6e 69 6e 67 20 46 41 4c |by retur|ning FAL|
|00004fc0| 53 45 20 7d 0d 0d 09 09 | 09 57 49 54 48 20 70 5e |SE }....|.WITH p^|
|00004fd0| 2e 69 6f 46 6c 46 6e 64 | 72 49 6e 66 6f 20 44 4f |.ioFlFnd|rInfo DO|
|00004fe0| 0d 09 09 09 09 49 46 20 | 28 28 66 64 54 79 70 65 |.....IF |((fdType|
|00004ff0| 20 3d 20 27 54 45 58 54 | 27 29 20 4f 52 20 28 4e | = 'TEXT|') OR (N|
|00005000| 4f 54 28 74 65 78 74 4f | 6e 6c 79 29 20 41 4e 44 |OT(textO|nly) AND|
|00005010| 20 28 66 64 54 79 70 65 | 20 3d 20 27 41 50 50 4c | (fdType| = 'APPL|
|00005020| 27 29 29 29 20 54 48 45 | 4e 0d 09 09 09 09 09 53 |'))) THE|N......S|
|00005030| 69 6d 70 6c 65 46 69 6c | 65 46 69 6c 74 65 72 20 |impleFil|eFilter |
|00005040| 3a 3d 20 46 41 4c 53 45 | 3b 20 7b 53 68 6f 77 20 |:= FALSE|; {Show |
|00005050| 69 74 7d 0d 09 09 45 4e | 44 3b 0d 0d 0d 09 50 52 |it}...EN|D;....PR|
|00005060| 4f 43 45 44 55 52 45 20 | 64 6f 4e 6f 72 6d 61 6c |OCEDURE |doNormal|
|00005070| 50 47 65 74 3b 0d 0d 09 | 09 42 45 47 49 4e 0d 09 |PGet;...|.BEGIN..|
|00005080| 09 09 74 65 78 74 4f 6e | 6c 79 20 3a 3d 20 54 52 |..textOn|ly := TR|
|00005090| 55 45 3b 0d 09 09 09 53 | 46 50 47 65 74 46 69 6c |UE;....S|FPGetFil|
|000050a0| 65 28 50 6f 69 6e 74 28 | 24 30 30 34 30 30 30 34 |e(Point(|$0040004|
|000050b0| 30 29 2c 09 7b 6c 6f 63 | 61 74 69 6f 6e 7d 0d 09 |0),.{loc|ation}..|
|000050c0| 09 09 09 09 09 09 27 53 | 70 61 63 65 20 66 6f 72 |......'S|pace for|
|000050d0| 20 52 65 6e 74 27 2c 09 | 09 09 7b 76 65 73 74 69 | Rent',.|..{vesti|
|000050e0| 67 69 61 6c 20 73 74 72 | 69 6e 67 7d 0d 09 09 09 |gial str|ing}....|
|000050f0| 09 09 09 09 40 53 69 6d | 70 6c 65 46 69 6c 65 46 |....@Sim|pleFileF|
|00005100| 69 6c 74 65 72 2c 09 09 | 7b 66 69 6c 65 46 69 6c |ilter,..|{fileFil|
|00005110| 74 65 72 7d 0d 09 09 09 | 09 09 09 09 2d 31 2c 09 |ter}....|....-1,.|
|00005120| 09 09 09 09 09 09 09 09 | 09 7b 6e 75 6d 74 79 70 |........|.{numtyp|
|00005130| 65 73 3b 20 2d 31 20 6d | 65 61 6e 73 20 61 6c 6c |es; -1 m|eans all|
|00005140| 7d 0d 09 09 09 09 09 09 | 09 74 79 70 65 4c 69 73 |}.......|.typeLis|
|00005150| 74 2c 09 09 09 09 09 09 | 09 7b 61 72 72 61 79 20 |t,......|.{array |
|00005160| 74 6f 20 74 79 70 65 73 | 20 74 6f 20 73 68 6f 77 |to types| to show|
|00005170| 7d 0d 09 09 09 09 09 09 | 09 40 4d 79 53 46 47 65 |}.......|.@MySFGe|
|00005180| 74 48 6f 6f 6b 2c 09 09 | 09 09 09 7b 64 6c 67 48 |tHook,..|...{dlgH|
|00005190| 6f 6f 6b 7d 0d 09 09 09 | 09 09 09 09 72 65 70 6c |ook}....|....repl|
|000051a0| 79 2c 09 09 09 09 09 09 | 09 09 7b 72 65 63 6f 72 |y,......|..{recor|
|000051b0| 64 20 66 6f 72 20 72 65 | 74 75 72 6e 65 64 20 76 |d for re|turned v|
|000051c0| 61 6c 75 65 73 7d 0d 09 | 09 09 09 09 09 09 72 53 |alues}..|......rS|
|000051d0| 46 50 47 65 74 46 69 6c | 65 44 4c 4f 47 2c 09 09 |FPGetFil|eDLOG,..|
|000051e0| 09 09 7b 49 44 20 6f 66 | 20 43 75 73 74 6f 6d 20 |..{ID of| Custom |
|000051f0| 44 69 61 6c 6f 67 7d 0d | 09 09 09 09 09 09 09 4e |Dialog}.|.......N|
|00005200| 49 4c 29 3b 09 09 09 09 | 09 09 09 09 09 7b 4d 6f |IL);....|.....{Mo|
|00005210| 64 61 6c 44 69 61 6c 6f | 67 20 66 69 6c 74 65 72 |dalDialo|g filter|
|00005220| 50 72 6f 63 7d 0d 09 09 | 45 4e 44 3b 0d 0d 28 2a |Proc}...|END;..(*|
|00005230| 2a 20 64 6f 4e 6f 72 6d | 61 6c 50 50 75 74 20 2a |* doNorm|alPPut *|
|00005240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0d 28 |********|*****).(|
|00005280| 2a 0d 28 2a 09 4e 6f 72 | 6d 61 6c 20 53 46 50 50 |*.(*.Nor|mal SFPP|
|00005290| 75 74 46 69 6c 65 20 73 | 61 6d 70 6c 65 2e 20 54 |utFile s|ample. T|
|000052a0| 68 69 73 20 63 75 73 74 | 6f 6d 20 50 75 74 46 69 |his cust|om PutFi|
|000052b0| 6c 65 20 72 6f 75 74 69 | 6e 65 20 61 64 64 73 20 |le routi|ne adds |
|000052c0| 73 65 76 65 72 61 6c 20 | 6e 65 77 0d 28 2a 09 74 |several |new.(*.t|
|000052d0| 6f 20 74 68 65 20 64 69 | 61 6c 6f 67 20 62 6f 78 |o the di|alog box|
|000052e0| 2e 20 54 68 65 72 65 20 | 61 72 65 20 32 20 72 61 |. There |are 2 ra|
|000052f0| 64 69 6f 20 62 75 74 74 | 6f 6e 73 20 74 68 61 74 |dio butt|ons that|
|00005300| 20 64 65 74 65 72 6d 69 | 6e 65 20 77 68 61 74 20 | determi|ne what |
|00005310| 66 6f 72 6d 61 74 0d 28 | 2a 09 74 68 65 20 75 73 |format.(|*.the us|
|00005320| 65 72 20 77 61 6e 74 73 | 20 74 6f 20 73 61 76 65 |er wants| to save|
|00005330| 20 74 68 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e | the inf|ormation|
|00005340| 20 69 6e 2e 20 54 68 65 | 72 65 20 69 73 20 61 20 | in. The|re is a |
|00005350| 51 75 69 74 20 62 75 74 | 74 6f 6e 73 20 74 68 61 |Quit but|tons tha|
|00005360| 74 0d 28 2a 09 77 69 6c | 6c 20 63 61 75 73 65 20 |t.(*.wil|l cause |
|00005370| 75 73 20 74 6f 20 6c 65 | 61 76 65 20 74 68 69 73 |us to le|ave this|
|00005380| 20 70 72 6f 67 72 61 6d | 2e 20 41 6e 64 20 74 68 | program|. And th|
|00005390| 65 72 65 20 69 73 20 61 | 20 53 74 61 74 69 63 20 |ere is a| Static |
|000053a0| 54 65 78 74 20 69 74 65 | 6d 20 74 68 61 74 0d 28 |Text ite|m that.(|
|000053b0| 2a 09 64 69 73 70 6c 61 | 79 73 20 74 68 65 20 61 |*.displa|ys the a|
|000053c0| 6d 6f 75 6e 74 20 6f 66 | 20 66 72 65 65 20 73 70 |mount of| free sp|
|000053d0| 61 63 65 20 6c 65 66 74 | 20 6f 6e 20 74 68 65 20 |ace left| on the |
|000053e0| 64 69 73 6b 2e 20 54 68 | 69 73 20 74 65 78 74 20 |disk. Th|is text |
|000053f0| 69 74 65 6d 20 69 73 0d | 28 2a 09 75 70 64 61 74 |item is.|(*.updat|
|00005400| 65 64 20 77 68 65 6e 65 | 76 65 72 20 77 65 20 64 |ed whene|ver we d|
|00005410| 65 74 65 63 74 20 74 68 | 61 74 20 74 68 65 20 76 |etect th|at the v|
|00005420| 6f 6c 75 6d 65 20 77 65 | 20 61 72 65 20 63 75 72 |olume we| are cur|
|00005430| 72 65 6e 74 6c 79 20 6c | 6f 6f 6b 69 6e 67 20 61 |rently l|ooking a|
|00005440| 74 20 69 73 0d 28 2a 09 | 6e 6f 74 20 74 68 65 20 |t is.(*.|not the |
|00005450| 73 61 6d 65 20 61 73 20 | 74 68 65 20 6c 61 73 74 |same as |the last|
|00005460| 20 76 6f 6c 75 6d 65 20 | 77 65 20 6c 6f 6f 6b 65 | volume |we looke|
|00005470| 64 20 61 74 2e 20 54 68 | 65 72 65 66 6f 72 65 2c |d at. Th|erefore,|
|00005480| 20 77 65 20 6d 61 69 6e | 74 61 69 6e 20 61 0d 28 | we main|tain a.(|
|00005490| 2a 09 76 61 72 69 61 62 | 6c 65 20 63 61 6c 6c 65 |*.variab|le calle|
|000054a0| 64 20 4d 79 53 61 76 65 | 44 69 73 6b 20 74 6f 20 |d MySave|Disk to |
|000054b0| 74 72 61 63 6b 20 74 68 | 69 73 2e 20 54 68 69 73 |track th|is. This|
|000054c0| 20 73 61 6d 70 6c 65 20 | 63 6f 6e 73 69 73 74 73 | sample |consists|
|000054d0| 20 6f 66 20 33 20 70 61 | 72 74 73 3a 0d 28 2a 0d | of 3 pa|rts:.(*.|
|000054e0| 28 2a 09 64 6f 4e 6f 72 | 6d 61 6c 50 50 75 74 20 |(*.doNor|malPPut |
|000054f0| 2d 20 54 68 69 73 20 72 | 6f 75 74 69 6e 65 2c 20 |- This r|outine, |
|00005500| 63 61 6c 6c 65 64 20 62 | 79 20 64 6f 43 6f 6d 6d |called b|y doComm|
|00005510| 61 6e 64 2c 20 63 61 6c | 6c 73 20 53 46 50 50 75 |and, cal|ls SFPPu|
|00005520| 74 46 69 6c 65 2e 20 4e | 6f 74 65 0d 28 2a 09 09 |tFile. N|ote.(*..|
|00005530| 09 09 74 68 65 20 65 78 | 74 72 61 20 27 50 27 20 |..the ex|tra 'P' |
|00005540| 69 6e 20 74 68 65 20 6e | 61 6d 65 2e 20 54 68 69 |in the n|ame. Thi|
|00005550| 73 20 74 6f 6f 6c 62 6f | 78 20 63 61 6c 6c 20 61 |s toolbo|x call a|
|00005560| 6c 6c 6f 77 73 20 75 73 | 20 74 6f 20 73 70 65 63 |llows us| to spec|
|00005570| 69 66 79 20 61 0d 28 2a | 09 09 09 09 63 75 73 74 |ify a.(*|....cust|
|00005580| 6f 6d 69 7a 65 64 20 64 | 69 61 6c 6f 67 20 62 6f |omized d|ialog bo|
|00005590| 78 2c 20 61 6e 64 20 64 | 6c 67 48 6f 6f 6b 20 74 |x, and d|lgHook t|
|000055a0| 68 61 74 20 68 61 6e 64 | 6c 65 73 20 68 69 74 73 |hat hand|les hits|
|000055b0| 20 6f 6e 20 73 70 65 63 | 69 61 6c 0d 28 2a 09 09 | on spec|ial.(*..|
|000055c0| 09 09 69 74 65 6d 73 2e | 0d 28 2a 0d 28 2a 09 4d |..items.|.(*.(*.M|
|000055d0| 79 53 46 50 75 74 48 6f | 6f 6b 20 2d 20 41 20 72 |ySFPutHo|ok - A r|
|000055e0| 6f 75 74 69 6e 65 20 74 | 68 61 74 20 69 73 20 63 |outine t|hat is c|
|000055f0| 61 6c 6c 65 64 20 74 6f | 20 68 61 6e 64 6c 65 20 |alled to| handle |
|00005600| 74 68 65 20 6e 6f 6e 2d | 73 74 61 6e 64 61 72 64 |the non-|standard|
|00005610| 20 69 74 65 6d 73 0d 28 | 2a 09 09 09 09 69 6e 20 | items.(|*....in |
|00005620| 6f 75 72 20 64 69 61 6c | 6f 67 20 62 6f 78 2e 20 |our dial|og box. |
|00005630| 54 68 65 73 65 20 69 74 | 65 6d 73 20 61 72 65 3a |These it|ems are:|
|00005640| 0d 28 2a 09 09 09 09 09 | 09 2d 20 32 20 72 61 64 |.(*.....|.- 2 rad|
|00005650| 69 6f 20 62 75 74 74 6f | 6e 73 20 74 68 61 74 20 |io butto|ns that |
|00005660| 61 66 66 65 63 74 20 74 | 68 65 20 73 65 74 74 69 |affect t|he setti|
|00005670| 6e 67 20 6f 66 20 74 68 | 65 20 27 74 65 78 74 4f |ng of th|e 'textO|
|00005680| 6e 6c 79 27 0d 28 2a 09 | 09 09 09 09 09 09 76 61 |nly'.(*.|......va|
|00005690| 72 69 61 62 6c 65 2c 0d | 28 2a 09 09 09 09 09 09 |riable,.|(*......|
|000056a0| 2d 20 61 20 51 75 69 74 | 20 62 75 74 74 6f 6e 20 |- a Quit| button |
|000056b0| 74 68 61 74 20 63 61 75 | 73 65 73 20 74 68 65 20 |that cau|ses the |
|000056c0| 47 65 74 46 69 6c 65 20 | 64 69 61 6c 6f 67 20 62 |GetFile |dialog b|
|000056d0| 6f 78 20 74 6f 20 62 65 | 20 70 75 74 0d 28 2a 09 |ox to be| put.(*.|
|000056e0| 09 09 09 09 09 09 61 77 | 61 79 20 28 6c 69 6b 65 |......aw|ay (like|
|000056f0| 20 70 72 65 73 73 69 6e | 67 20 43 61 6e 63 65 6c | pressin|g Cancel|
|00005700| 29 2c 20 62 75 74 20 61 | 6c 73 6f 20 63 61 75 73 |), but a|lso caus|
|00005710| 65 73 20 74 68 69 73 20 | 64 65 6d 6f 20 74 6f 20 |es this |demo to |
|00005720| 62 65 0d 28 2a 09 09 09 | 09 09 09 09 65 78 69 74 |be.(*...|....exit|
|00005730| 74 65 64 2c 0d 28 2a 09 | 09 09 09 09 09 2d 20 61 |ted,.(*.|.....- a|
|00005740| 20 55 73 65 72 49 74 65 | 6d 20 74 68 61 74 20 64 | UserIte|m that d|
|00005750| 69 73 70 6c 61 79 73 20 | 74 68 65 20 61 6d 6f 75 |isplays |the amou|
|00005760| 6e 74 20 6f 66 20 66 72 | 65 65 20 73 70 61 63 65 |nt of fr|ee space|
|00005770| 20 6f 6e 20 74 68 65 0d | 28 2a 09 09 09 09 09 09 | on the.|(*......|
|00005780| 09 63 75 72 72 65 6e 74 | 20 76 6f 6c 75 6d 65 2e |.current| volume.|
|00005790| 0d 28 2a 0d 28 2a 09 09 | 09 09 54 68 65 20 64 6c |.(*.(*..|..The dl|
|000057a0| 67 48 6f 6f 6b 20 69 73 | 20 61 6c 73 6f 20 75 73 |gHook is| also us|
|000057b0| 65 64 20 74 6f 20 70 65 | 72 66 6f 72 6d 20 73 6f |ed to pe|rform so|
|000057c0| 6d 65 20 73 70 65 63 69 | 61 6c 20 69 6e 69 74 69 |me speci|al initi|
|000057d0| 61 6c 69 7a 61 74 69 6f | 6e 0d 28 2a 09 09 09 09 |alizatio|n.(*....|
|000057e0| 6f 6e 20 74 68 65 20 69 | 74 65 6d 73 20 69 6e 20 |on the i|tems in |
|000057f0| 74 68 65 20 64 69 61 6c | 6f 67 20 62 6f 78 2e 20 |the dial|og box. |
|00005800| 53 74 61 6e 64 61 72 64 | 20 66 69 6c 65 20 64 6f |Standard| file do|
|00005810| 65 73 20 74 68 69 73 20 | 62 79 20 63 61 6c 6c 69 |es this |by calli|
|00005820| 6e 67 0d 28 2a 09 09 09 | 09 74 68 69 73 20 72 6f |ng.(*...|.this ro|
|00005830| 75 74 69 6e 65 20 77 69 | 74 68 20 61 20 62 6f 67 |utine wi|th a bog|
|00005840| 75 73 20 27 69 74 65 6d | 27 20 6e 75 6d 62 65 72 |us 'item|' number|
|00005850| 20 6f 66 20 2d 31 2e 20 | 57 68 65 6e 20 77 65 20 | of -1. |When we |
|00005860| 67 65 74 20 74 68 69 73 | 0d 28 2a 09 09 09 09 6e |get this|.(*....n|
|00005870| 75 6d 62 65 72 2c 20 77 | 65 20 69 6e 69 74 69 61 |umber, w|e initia|
|00005880| 6c 69 7a 65 20 6f 75 72 | 20 72 61 64 69 6f 20 62 |lize our| radio b|
|00005890| 75 74 74 6f 6e 73 2c 20 | 63 68 61 6e 67 65 20 74 |uttons, |change t|
|000058a0| 68 65 20 74 65 78 74 20 | 69 6e 20 74 68 65 0d 28 |he text |in the.(|
|000058b0| 2a 09 09 09 09 73 61 76 | 65 20 62 75 74 74 6f 6e |*....sav|e button|
|000058c0| 2c 20 61 6e 64 20 70 72 | 65 70 61 72 65 20 74 68 |, and pr|epare th|
|000058d0| 65 20 75 73 65 72 20 69 | 74 65 6d 20 62 79 20 69 |e user i|tem by i|
|000058e0| 6e 69 74 69 61 6c 69 7a | 69 6e 67 20 74 68 65 20 |nitializ|ing the |
|000058f0| 72 6f 75 74 69 6e 65 0d | 28 2a 09 09 09 09 74 68 |routine.|(*....th|
|00005900| 61 74 20 77 69 6c 6c 20 | 64 72 61 77 20 69 74 20 |at will |draw it |
|00005910| 61 6e 64 20 67 65 74 74 | 69 6e 67 20 74 68 65 20 |and gett|ing the |
|00005920| 74 65 78 74 20 74 68 61 | 74 20 77 69 6c 6c 20 61 |text tha|t will a|
|00005930| 70 70 65 61 72 20 69 6e | 20 69 74 2e 0d 28 2a 0d |ppear in| it..(*.|
|00005940| 28 2a 09 09 09 09 54 68 | 65 20 72 61 64 69 6f 20 |(*....Th|e radio |
|00005950| 62 75 74 74 6f 6e 73 20 | 61 72 65 20 75 73 65 64 |buttons |are used|
|00005960| 20 74 6f 20 64 65 74 65 | 72 6d 69 6e 65 20 77 68 | to dete|rmine wh|
|00005970| 61 74 20 66 6f 72 6d 61 | 74 20 74 68 65 20 66 69 |at forma|t the fi|
|00005980| 6c 65 20 77 69 6c 6c 20 | 62 65 0d 28 2a 09 09 09 |le will |be.(*...|
|00005990| 09 73 61 76 65 64 20 69 | 6e 2e 20 54 68 65 79 20 |.saved i|n. They |
|000059a0| 61 72 65 20 66 75 6e 63 | 74 69 6f 6e 6c 65 73 73 |are func|tionless|
|000059b0| 20 69 6e 20 74 68 69 73 | 20 73 61 6d 70 6c 65 2c | in this| sample,|
|000059c0| 20 6d 65 72 65 6c 79 20 | 63 68 61 6e 67 69 6e 67 | merely |changing|
|000059d0| 0d 28 2a 09 09 09 09 74 | 68 65 69 72 20 73 74 61 |.(*....t|heir sta|
|000059e0| 74 65 20 61 6e 64 20 73 | 65 74 74 69 6e 67 20 61 |te and s|etting a|
|000059f0| 20 67 6c 6f 62 61 6c 20 | 76 61 72 69 61 62 6c 65 | global |variable|
|00005a00| 20 66 6f 72 20 70 6f 73 | 73 69 62 6c 65 20 75 73 | for pos|sible us|
|00005a10| 65 20 6c 61 74 65 72 2e | 0d 28 2a 0d 28 2a 09 09 |e later.|.(*.(*..|
|00005a20| 09 09 54 68 65 20 51 75 | 69 74 20 62 75 74 74 6f |..The Qu|it butto|
|00005a30| 6e 20 63 61 75 73 65 73 | 20 74 68 65 20 64 69 61 |n causes| the dia|
|00005a40| 6c 6f 67 20 62 6f 78 20 | 74 6f 20 67 6f 20 61 77 |log box |to go aw|
|00005a50| 61 79 20 62 79 20 72 65 | 74 75 72 6e 69 6e 67 20 |ay by re|turning |
|00005a60| 74 68 65 0d 28 2a 09 09 | 09 09 27 70 75 74 43 61 |the.(*..|..'putCa|
|00005a70| 6e 63 65 6c 27 20 74 6f | 20 53 74 61 6e 64 61 72 |ncel' to| Standar|
|00005a80| 64 20 46 69 6c 65 2e 20 | 49 74 20 61 6c 73 6f 20 |d File. |It also |
|00005a90| 73 65 74 73 20 74 68 65 | 20 27 64 6f 6e 65 46 6c |sets the| 'doneFl|
|00005aa0| 61 67 27 20 76 61 72 69 | 61 62 6c 65 0d 28 2a 09 |ag' vari|able.(*.|
|00005ab0| 09 09 09 74 6f 20 54 52 | 55 45 20 66 6f 72 20 6f |...to TR|UE for o|
|00005ac0| 75 72 20 4d 61 69 6e 45 | 76 65 6e 74 4c 6f 6f 70 |ur MainE|ventLoop|
|00005ad0| 20 74 6f 20 6e 6f 74 69 | 63 65 2e 0d 28 2a 0d 28 | to noti|ce..(*.(|
|00005ae0| 2a 09 09 09 09 46 69 6e | 61 6c 6c 79 2c 20 74 68 |*....Fin|ally, th|
|00005af0| 69 73 20 72 6f 75 74 69 | 6e 65 20 70 65 72 66 6f |is routi|ne perfo|
|00005b00| 72 6d 73 20 6f 6e 65 20 | 6f 74 68 65 72 20 66 75 |rms one |other fu|
|00005b10| 6e 63 74 69 6f 6e 2e 20 | 57 68 65 6e 20 53 46 50 |nction. |When SFP|
|00005b20| 50 75 74 46 69 6c 65 0d | 28 2a 09 09 09 09 69 73 |PutFile.|(*....is|
|00005b30| 20 63 61 6c 6c 65 64 2c | 20 77 65 20 6d 61 6b 65 | called,| we make|
|00005b40| 20 6e 6f 74 65 20 6f 66 | 20 74 68 65 20 63 75 72 | note of| the cur|
|00005b50| 72 65 6e 74 20 76 6f 6c | 75 6d 65 20 28 74 68 65 |rent vol|ume (the|
|00005b60| 20 6f 6e 65 20 74 68 61 | 74 20 77 69 6c 6c 0d 28 | one tha|t will.(|
|00005b70| 2a 09 09 09 09 62 65 20 | 64 69 73 70 6c 61 79 65 |*....be |displaye|
|00005b80| 64 20 69 6e 20 74 68 65 | 20 64 69 61 6c 6f 67 20 |d in the| dialog |
|00005b90| 62 6f 78 29 2e 20 54 68 | 69 73 20 72 6f 75 74 69 |box). Th|is routi|
|00005ba0| 6e 65 20 69 73 20 72 65 | 73 70 6f 6e 73 69 62 6c |ne is re|sponsibl|
|00005bb0| 65 20 66 6f 72 0d 28 2a | 09 09 09 09 63 68 65 63 |e for.(*|....chec|
|00005bc0| 6b 69 6e 67 20 74 6f 20 | 73 65 65 20 77 68 65 6e |king to |see when|
|00005bd0| 65 76 65 72 20 77 65 20 | 63 68 61 6e 67 65 20 76 |ever we |change v|
|00005be0| 6f 6c 75 6d 65 73 2c 20 | 61 6e 64 20 74 6f 20 75 |olumes, |and to u|
|00005bf0| 70 64 61 74 65 20 74 68 | 65 0d 28 2a 09 09 09 09 |pdate th|e.(*....|
|00005c00| 46 72 65 65 20 53 70 61 | 63 65 20 6e 6f 74 69 63 |Free Spa|ce notic|
|00005c10| 65 20 61 63 63 6f 72 64 | 69 6e 67 6c 79 2e 20 49 |e accord|ingly. I|
|00005c20| 74 20 64 6f 65 73 20 74 | 68 69 73 20 62 79 20 6c |t does t|his by l|
|00005c30| 6f 6f 6b 69 6e 67 20 61 | 74 20 74 68 65 20 76 61 |ooking a|t the va|
|00005c40| 6c 75 65 0d 28 2a 09 09 | 09 09 73 74 6f 72 65 64 |lue.(*..|..stored|
|00005c50| 20 61 74 20 53 46 53 61 | 76 65 44 69 73 6b 2e 20 | at SFSa|veDisk. |
|00005c60| 57 68 65 6e 65 76 65 72 | 20 74 68 61 74 20 76 61 |Whenever| that va|
|00005c70| 6c 75 65 20 63 68 61 6e | 67 65 73 2c 20 77 65 20 |lue chan|ges, we |
|00005c80| 68 61 76 65 20 63 68 61 | 6e 67 65 64 0d 28 2a 09 |have cha|nged.(*.|
|00005c90| 09 09 09 76 6f 6c 75 6d | 65 73 20 61 6e 64 20 6e |...volum|es and n|
|00005ca0| 65 65 64 20 74 6f 20 6d | 61 6b 65 20 61 20 50 42 |eed to m|ake a PB|
|00005cb0| 48 47 65 74 56 49 6e 66 | 6f 20 63 61 6c 6c 20 74 |HGetVInf|o call t|
|00005cc0| 6f 20 66 69 6e 64 20 6f | 75 74 20 68 6f 77 20 6d |o find o|ut how m|
|00005cd0| 75 63 68 0d 28 2a 09 09 | 09 09 72 6f 6f 6d 20 69 |uch.(*..|..room i|
|00005ce0| 73 20 6c 65 66 74 20 6f | 6e 20 74 68 65 20 64 69 |s left o|n the di|
|00005cf0| 73 6b 2e 0d 28 2a 0d 28 | 2a 09 44 72 61 77 46 72 |sk..(*.(|*.DrawFr|
|00005d00| 65 65 53 70 61 63 65 49 | 74 65 6d 20 2d 20 75 73 |eeSpaceI|tem - us|
|00005d10| 65 64 20 74 6f 20 64 72 | 61 77 20 61 20 75 73 65 |ed to dr|aw a use|
|00005d20| 72 20 69 74 65 6d 20 74 | 68 61 74 20 64 69 73 70 |r item t|hat disp|
|00005d30| 6c 61 79 73 20 74 68 65 | 20 61 6d 6f 75 6e 74 20 |lays the| amount |
|00005d40| 6f 66 0d 28 2a 09 09 09 | 09 66 72 65 65 20 73 70 |of.(*...|.free sp|
|00005d50| 61 63 65 20 6c 65 66 74 | 20 6f 6e 20 74 68 65 20 |ace left| on the |
|00005d60| 64 69 73 6b 2e 0d 28 2a | 0d 28 2a 2a 2a 2a 2a 2a |disk..(*|.(******|
|00005d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005db0| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0d 0d 09 50 52 4f 43 |********|)...PROC|
|00005dc0| 45 44 55 52 45 20 44 72 | 61 77 46 72 65 65 53 70 |EDURE Dr|awFreeSp|
|00005dd0| 61 63 65 49 74 65 6d 28 | 74 68 65 57 69 6e 64 6f |aceItem(|theWindo|
|00005de0| 77 3a 20 57 69 6e 64 6f | 77 50 74 72 3b 20 69 74 |w: Windo|wPtr; it|
|00005df0| 65 6d 4e 6f 3a 20 49 6e | 74 65 67 65 72 29 3b 0d |emNo: In|teger);.|
|00005e00| 0d 09 09 42 45 47 49 4e | 0d 09 09 09 54 65 78 74 |...BEGIN|....Text|
|00005e10| 42 6f 78 28 50 6f 69 6e | 74 65 72 28 4f 72 64 28 |Box(Poin|ter(Ord(|
|00005e20| 40 6d 79 53 74 72 29 20 | 2b 20 31 29 2c 6c 65 6e |@myStr) |+ 1),len|
|00005e30| 67 74 68 28 6d 79 53 74 | 72 29 2c 66 72 65 65 49 |gth(mySt|r),freeI|
|00005e40| 74 65 6d 42 6f 78 2c 74 | 65 4a 75 73 74 43 65 6e |temBox,t|eJustCen|
|00005e50| 74 65 72 29 3b 0d 09 09 | 45 4e 44 3b 0d 0d 0d 09 |ter);...|END;....|
|00005e60| 46 55 4e 43 54 49 4f 4e | 20 4d 79 53 46 50 75 74 |FUNCTION| MySFPut|
|00005e70| 48 6f 6f 6b 28 4d 79 53 | 46 69 74 65 6d 3a 20 49 |Hook(MyS|Fitem: I|
|00005e80| 6e 74 65 67 65 72 3b 20 | 74 68 65 44 69 61 6c 6f |nteger; |theDialo|
|00005e90| 67 3a 20 44 69 61 6c 6f | 67 50 74 72 29 3a 20 49 |g: Dialo|gPtr): I|
|00005ea0| 6e 74 65 67 65 72 3b 0d | 0d 09 09 43 4f 4e 53 54 |nteger;.|...CONST|
|00005eb0| 0d 09 09 09 71 75 69 74 | 42 75 74 74 6f 6e 09 09 |....quit|Button..|
|00005ec0| 09 3d 20 39 3b 20 20 20 | 7b 44 49 54 4c 20 69 74 |.= 9;   |{DITL it|
|00005ed0| 65 6d 20 6e 75 6d 62 65 | 72 20 6f 66 20 71 75 69 |em numbe|r of qui|
|00005ee0| 74 42 75 74 74 6f 6e 7d | 0d 09 09 09 74 65 78 74 |tButton}|....text|
|00005ef0| 42 75 74 74 6f 6e 09 09 | 09 3d 20 31 30 3b 20 20 |Button..|.= 10;  |
|00005f00| 7b 44 49 54 4c 20 69 74 | 65 6d 20 6e 75 6d 62 65 |{DITL it|em numbe|
|00005f10| 72 20 6f 66 20 74 65 78 | 74 42 75 74 74 6f 6e 7d |r of tex|tButton}|
|00005f20| 0d 09 09 09 46 6f 72 6d | 61 74 42 75 74 74 6f 6e |....Form|atButton|
|00005f30| 09 09 3d 20 31 31 3b 20 | 20 7b 44 49 54 4c 20 69 |..= 11; | {DITL i|
|00005f40| 74 65 6d 20 6e 75 6d 62 | 65 72 20 6f 66 20 46 6f |tem numb|er of Fo|
|00005f50| 72 6d 61 74 42 75 74 74 | 6f 6e 7d 0d 09 09 09 46 |rmatButt|on}....F|
|00005f60| 72 65 65 53 70 61 63 65 | 49 74 65 6d 09 09 3d 20 |reeSpace|Item..= |
|00005f70| 31 32 3b 20 20 7b 44 49 | 54 4c 20 69 74 65 6d 20 |12;  {DI|TL item |
|00005f80| 6e 75 6d 62 65 72 20 6f | 66 20 66 72 65 65 20 73 |number o|f free s|
|00005f90| 70 61 63 65 20 73 74 61 | 74 69 63 20 74 65 78 74 |pace sta|tic text|
|00005fa0| 7d 0d 0d 09 09 56 41 52 | 0d 09 09 09 69 74 65 6d |}....VAR|....item|
|00005fb0| 54 6f 43 68 61 6e 67 65 | 09 09 3a 20 48 61 6e 64 |ToChange|..: Hand|
|00005fc0| 6c 65 3b 09 09 09 09 7b | 6e 65 65 64 65 64 20 66 |le;....{|needed f|
|00005fd0| 6f 72 20 47 65 74 44 49 | 74 65 6d 20 61 6e 64 20 |or GetDI|tem and |
|00005fe0| 53 65 74 43 74 6c 56 61 | 6c 75 65 7d 0d 09 09 09 |SetCtlVa|lue}....|
|00005ff0| 69 74 65 6d 54 79 70 65 | 09 09 09 09 3a 20 49 6e |itemType|....: In|
|00006000| 74 65 67 65 72 3b 09 09 | 09 7b 6e 65 65 64 65 64 |teger;..|.{needed|
|00006010| 20 66 6f 72 20 47 65 74 | 44 49 74 65 6d 7d 0d 09 | for Get|DItem}..|
|00006020| 09 09 69 74 65 6d 42 6f | 78 09 09 09 09 09 3a 20 |..itemBo|x.....: |
|00006030| 52 65 63 74 3b 09 09 09 | 09 09 7b 6e 65 65 64 65 |Rect;...|..{neede|
|00006040| 64 20 66 6f 72 20 47 65 | 74 44 49 74 65 6d 7d 0d |d for Ge|tDItem}.|
|00006050| 09 09 09 6d 79 48 50 42 | 09 09 09 09 09 09 3a 20 |...myHPB|......: |
|00006060| 48 50 61 72 61 6d 42 6c | 6f 63 6b 52 65 63 3b 0d |HParamBl|ockRec;.|
|00006070| 09 09 09 63 6f 6e 76 65 | 72 74 09 09 09 09 09 3a |...conve|rt.....:|
|00006080| 20 54 77 6f 49 6e 74 73 | 4d 61 6b 65 73 41 4c 6f | TwoInts|MakesALo|
|00006090| 6e 67 3b 0d 0d 09 09 42 | 45 47 49 4e 09 09 09 09 |ng;....B|EGIN....|
|000060a0| 09 09 20 20 20 7b 4d 79 | 53 46 48 6f 6f 6b 7d 0d |..   {My|SFHook}.|
|000060b0| 0d 09 09 7b 20 4d 79 53 | 46 50 75 74 48 6f 6f 6b |...{ MyS|FPutHook|
|000060c0| 20 69 73 20 61 20 66 75 | 6e 63 74 69 6f 6e 20 74 | is a fu|nction t|
|000060d0| 68 61 74 20 72 65 71 75 | 69 72 65 73 20 74 68 61 |hat requ|ires tha|
|000060e0| 74 20 61 6e 20 69 74 65 | 6d 20 6e 75 6d 62 65 72 |t an ite|m number|
|000060f0| 20 62 65 20 70 61 73 73 | 65 64 09 09 7d 0d 09 09 | be pass|ed..}...|
|00006100| 7b 20 62 61 63 6b 20 66 | 72 6f 6d 20 69 74 2e 20 |{ back f|rom it. |
|00006110| 4e 6f 72 6d 61 6c 6c 79 | 2c 20 74 68 69 73 20 69 |Normally|, this i|
|00006120| 73 20 74 68 65 20 73 61 | 6d 65 20 69 74 65 6d 20 |s the sa|me item |
|00006130| 6e 75 6d 62 65 72 20 74 | 68 61 74 20 77 61 73 20 |number t|hat was |
|00006140| 70 61 73 73 65 64 09 09 | 7d 0d 09 09 7b 20 74 6f |passed..|}...{ to|
|00006150| 20 75 73 2c 20 62 75 74 | 20 6e 6f 74 20 6e 65 63 | us, but| not nec|
|00006160| 65 73 73 61 72 69 6c 79 | 2e 20 46 6f 72 20 69 6e |essarily|. For in|
|00006170| 73 74 61 6e 63 65 2c 20 | 63 6c 69 63 6b 73 20 6f |stance, |clicks o|
|00006180| 6e 20 74 68 65 20 51 75 | 69 74 20 62 75 74 74 6f |n the Qu|it butto|
|00006190| 6e 09 09 09 7d 0d 09 09 | 7b 20 67 65 74 20 74 72 |n...}...|{ get tr|
|000061a0| 61 6e 73 6c 61 74 65 64 | 20 69 6e 74 6f 20 63 6c |anslated| into cl|
|000061b0| 69 63 6b 73 20 6f 6e 20 | 74 68 65 20 43 61 6e 63 |icks on |the Canc|
|000061c0| 65 6c 20 62 75 74 74 6f | 6e 2e 20 57 65 20 63 6f |el butto|n. We co|
|000061d0| 75 6c 64 20 61 6c 73 6f | 20 72 65 74 75 72 6e 09 |uld also| return.|
|000061e0| 09 7d 0d 09 09 7b 20 76 | 61 6c 75 65 73 20 74 68 |.}...{ v|alues th|
|000061f0| 61 74 20 63 61 75 73 65 | 20 74 68 65 20 66 69 6c |at cause| the fil|
|00006200| 65 20 6e 61 6d 65 73 20 | 74 6f 20 62 65 20 72 65 |e names |to be re|
|00006210| 64 72 61 77 6e 20 6f 72 | 20 68 61 76 65 20 74 68 |drawn or| have th|
|00006220| 65 20 77 68 6f 6c 65 20 | 65 76 65 6e 74 09 7d 0d |e whole |event.}.|
|00006230| 09 09 7b 20 69 67 6e 6f | 72 65 64 2e 20 48 6f 77 |..{ igno|red. How|
|00006240| 65 76 65 72 2c 20 62 79 | 20 64 65 66 61 75 6c 74 |ever, by| default|
|00006250| 2c 20 77 65 27 6c 6c 20 | 72 65 74 75 72 6e 20 77 |, we'll |return w|
|00006260| 68 61 74 20 77 61 73 20 | 73 65 6e 74 20 74 6f 20 |hat was |sent to |
|00006270| 75 73 2e 09 09 09 09 09 | 7d 0d 0d 09 09 09 4d 79 |us......|}.....My|
|00006280| 53 46 50 75 74 48 6f 6f | 6b 20 3a 3d 20 4d 79 53 |SFPutHoo|k := MyS|
|00006290| 46 69 74 65 6d 3b 0d 0d | 09 09 7b 20 42 65 66 6f |Fitem;..|..{ Befo|
|000062a0| 72 65 20 74 68 65 20 64 | 69 61 6c 6f 67 20 69 73 |re the d|ialog is|
|000062b0| 20 64 72 61 77 6e 2c 20 | 6f 75 72 20 68 6f 6f 6b | drawn, |our hook|
|000062c0| 20 67 65 74 73 20 63 61 | 6c 6c 65 64 20 77 69 74 | gets ca|lled wit|
|000062d0| 68 20 61 20 2d 31 2e 20 | 7d 0d 09 09 7b 20 54 68 |h a -1. |}...{ Th|
|000062e0| 69 73 20 67 69 76 65 73 | 20 75 73 20 74 68 65 20 |is gives| us the |
|000062f0| 6f 70 70 6f 72 74 75 6e | 69 74 79 20 74 6f 20 63 |opportun|ity to c|
|00006300| 68 61 6e 67 65 20 74 68 | 69 6e 67 73 20 6c 69 6b |hange th|ings lik|
|00006310| 65 20 42 75 74 74 6f 6e | 20 74 69 74 6c 65 73 2c |e Button| titles,|
|00006320| 20 65 74 63 2e 20 7d 0d | 0d 09 09 09 49 46 20 28 | etc. }.|....IF (|
|00006330| 4d 79 53 46 69 74 65 6d | 20 3d 20 66 69 72 73 74 |MySFitem| = first|
|00006340| 54 69 6d 65 29 20 54 48 | 45 4e 20 42 45 47 49 4e |Time) TH|EN BEGIN|
|00006350| 0d 0d 09 09 09 09 7b 20 | 53 65 74 20 74 68 65 20 |......{ |Set the |
|00006360| 46 6f 72 6d 61 74 42 75 | 74 74 6f 6e 20 74 6f 20 |FormatBu|tton to |
|00006370| 4f 4e 2c 20 74 68 65 20 | 74 65 78 74 42 75 74 74 |ON, the |textButt|
|00006380| 6f 6e 20 74 6f 20 4f 46 | 46 7d 0d 0d 09 09 09 09 |on to OF|F}......|
|00006390| 53 65 74 52 61 64 69 6f | 42 75 74 74 6f 6e 28 74 |SetRadio|Button(t|
|000063a0| 68 65 44 69 61 6c 6f 67 | 2c 66 6f 72 6d 61 74 42 |heDialog|,formatB|
|000063b0| 75 74 74 6f 6e 2c 42 54 | 4e 4f 4e 29 3b 0d 09 09 |utton,BT|NON);...|
|000063c0| 09 09 53 65 74 52 61 64 | 69 6f 42 75 74 74 6f 6e |..SetRad|ioButton|
|000063d0| 28 74 68 65 44 69 61 6c | 6f 67 2c 74 65 78 74 42 |(theDial|og,textB|
|000063e0| 75 74 74 6f 6e 2c 42 54 | 4e 4f 46 46 29 3b 0d 09 |utton,BT|NOFF);..|
|000063f0| 09 09 09 74 65 78 74 4f | 6e 6c 79 20 3a 3d 20 46 |...textO|nly := F|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.